/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / CLiCC-CodeWarrior-0.6.2 / CLiCC-CodeWarrior-0.6.2.sit / clicc-0.6.2 / lib / obrep1.h

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 6f 62 72 65 70 31 | 2e 68 00 00 00 00 00 00 |..obrep1|.h......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 3f 3f 3f | 3f 01 00 00 00 00 00 00 |.TEXT???|?.......|
|00000050| 00 00 00 00 00 6c 16 00 | 00 01 7e a9 a6 57 9e a9 |.....l..|..~..W..|
|00000060| a6 57 9e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.W......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 f7 32 00 00 |........|.....2..|
|00000080| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000d0| 0d 20 2a 20 43 6f 70 79 | 72 69 67 68 74 20 28 43 |. * Copy|right (C|
|000000e0| 29 20 31 39 39 33 20 43 | 68 72 69 73 74 69 61 6e |) 1993 C|hristian|
|000000f0| 2d 41 6c 62 72 65 63 68 | 74 73 2d 55 6e 69 76 65 |-Albrech|ts-Unive|
|00000100| 72 73 69 74 61 65 74 20 | 7a 75 20 4b 69 65 6c 0d |rsitaet |zu Kiel.|
|00000110| 20 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | *------|--------|
|00000120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000160| 0d 20 2a 20 50 72 6f 6a | 65 6b 74 20 20 3a 20 41 |. * Proj|ekt  : A|
|00000170| 50 50 4c 59 20 2d 20 41 | 20 50 72 61 63 74 69 63 |PPLY - A| Practic|
|00000180| 61 62 6c 65 20 41 6e 64 | 20 50 6f 72 74 61 62 6c |able And| Portabl|
|00000190| 65 20 4c 69 73 70 20 49 | 6d 70 6c 65 6d 65 6e 74 |e Lisp I|mplement|
|000001a0| 61 74 69 6f 6e 0d 20 2a | 20 20 20 20 20 20 20 20 |ation. *|        |
|000001b0| 20 20 20 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |    ----|--------|
|000001c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 20 2a 20 46 75 |--------|--. * Fu|
|000001f0| 6e 6b 74 69 6f 6e 20 3a | 20 6f 62 72 65 70 31 2e |nktion :| obrep1.|
|00000200| 68 20 2d 20 64 61 74 65 | 6e 72 65 70 72 e4 73 65 |h - date|nrepr.se|
|00000210| 6e 74 61 74 69 6f 6e 73 | 73 70 65 7a 69 66 69 73 |ntations|spezifis|
|00000220| 63 68 0d 20 2a 0d 20 2a | 20 24 52 65 76 69 73 69 |ch. *. *| $Revisi|
|00000230| 6f 6e 3a 20 31 2e 31 30 | 20 24 0d 20 2a 20 24 4c |on: 1.10| $. * $L|
|00000240| 6f 67 3a 20 6f 62 72 65 | 70 31 2e 68 2c 76 20 24 |og: obre|p1.h,v $|
|00000250| 0d 20 2a 20 52 65 76 69 | 73 69 6f 6e 20 31 2e 31 |. * Revi|sion 1.1|
|00000260| 30 20 20 31 39 39 33 2f | 31 31 2f 31 32 20 20 31 |0  1993/|11/12  1|
|00000270| 33 3a 30 39 3a 30 35 20 | 20 73 6d 61 0d 20 2a 20 |3:09:05 | sma. * |
|00000280| 4e 65 75 65 20 4b 6f 6e | 73 74 61 6e 74 65 20 42 |Neue Kon|stante B|
|00000290| 49 54 53 5f 50 45 52 5f | 46 49 58 4e 55 4d 2e 0d |ITS_PER_|FIXNUM..|
|000002a0| 20 2a 0d 20 2a 20 52 65 | 76 69 73 69 6f 6e 20 31 | *. * Re|vision 1|
|000002b0| 2e 39 20 20 31 39 39 33 | 2f 31 30 2f 32 39 20 20 |.9  1993|/10/29  |
|000002c0| 31 35 3a 30 32 3a 33 31 | 20 20 73 6d 61 0d 20 2a |15:02:31|  sma. *|
|000002d0| 20 c4 6e 64 65 72 75 6e | 67 65 6e 20 66 fc 72 20 | .nderun|gen f.r |
|000002e0| 6b 6f 72 72 65 6b 74 65 | 73 20 46 75 6e 6b 74 69 |korrekte|s Funkti|
|000002f0| 6f 6e 69 65 72 65 6e 20 | 76 6f 6e 20 6f 62 72 65 |onieren |von obre|
|00000300| 70 31 20 26 20 6f 62 72 | 65 70 32 2e 0d 20 2a 0d |p1 & obr|ep2.. *.|
|00000310| 20 2a 20 52 65 76 69 73 | 69 6f 6e 20 31 2e 38 20 | * Revis|ion 1.8 |
|00000320| 20 31 39 39 33 2f 31 30 | 2f 31 34 20 20 31 35 3a | 1993/10|/14  15:|
|00000330| 35 34 3a 30 34 20 20 73 | 6d 61 0d 20 2a 20 57 65 |54:04  s|ma. * We|
|00000340| 69 74 65 72 65 20 4d 61 | 6b 72 6f 73 20 65 69 6e |itere Ma|kros ein|
|00000350| 67 65 66 fc 68 72 74 2c | 20 75 6d 20 6f 62 72 65 |gef.hrt,| um obre|
|00000360| 70 31 20 75 6e 64 20 6f | 62 72 65 70 32 20 6f 68 |p1 und o|brep2 oh|
|00000370| 6e 65 20 c4 6e 64 65 72 | 75 6e 67 20 76 6f 6e 0d |ne .nder|ung von.|
|00000380| 20 2a 20 77 65 69 74 65 | 72 65 6d 20 43 6f 64 65 | * weite|rem Code|
|00000390| 20 61 75 73 74 61 75 73 | 63 68 65 6e 20 7a 75 20 | austaus|chen zu |
|000003a0| 6b f6 6e 6e 65 6e 2e 0d | 20 2a 0d 20 2a 20 52 65 |k.nnen..| *. * Re|
|000003b0| 76 69 73 69 6f 6e 20 31 | 2e 37 20 20 31 39 39 33 |vision 1|.7  1993|
|000003c0| 2f 30 39 2f 32 38 20 20 | 31 36 3a 30 33 3a 32 39 |/09/28  |16:03:29|
|000003d0| 20 20 70 6d 0d 20 2a 20 | 46 65 68 6c 65 72 20 6b |  pm. * |Fehler k|
|000003e0| 6f 72 72 69 67 69 65 72 | 74 2e 0d 20 2a 0d 20 2a |orrigier|t.. *. *|
|000003f0| 20 52 65 76 69 73 69 6f | 6e 20 31 2e 36 20 20 31 | Revisio|n 1.6  1|
|00000400| 39 39 33 2f 30 39 2f 32 | 38 20 20 31 34 3a 34 34 |993/09/2|8  14:44|
|00000410| 3a 33 39 20 20 70 6d 0d | 20 2a 20 50 6f 69 6e 74 |:39  pm.| * Point|
|00000420| 65 72 2d 54 61 67 73 20 | 65 69 6e 67 65 74 72 61 |er-Tags |eingetra|
|00000430| 67 65 6e 0d 20 2a 0d 20 | 2a 20 52 65 76 69 73 69 |gen. *. |* Revisi|
|00000440| 6f 6e 20 31 2e 35 20 20 | 31 39 39 33 2f 30 39 2f |on 1.5  |1993/09/|
|00000450| 31 33 20 20 31 31 3a 35 | 31 3a 33 37 20 20 73 6d |13  11:5|1:37  sm|
|00000460| 61 0d 20 2a 20 46 65 68 | 6c 65 72 20 69 6e 20 4c |a. * Feh|ler in L|
|00000470| e4 6e 67 65 6e 61 6e 67 | 61 62 65 6e 20 76 6f 6e |.ngenang|aben von|
|00000480| 20 41 72 72 61 79 73 2c | 20 56 65 63 74 6f 72 65 | Arrays,| Vectore|
|00000490| 6e 20 75 6e 64 20 49 6e | 73 74 61 6e 7a 65 6e 20 |n und In|stanzen |
|000004a0| 62 65 73 65 69 74 69 67 | 74 0d 20 2a 20 64 75 72 |beseitig|t. * dur|
|000004b0| 63 68 20 45 69 6e 66 fc | 68 72 65 6e 20 64 65 73 |ch Einf.|hren des|
|000004c0| 20 53 45 54 5f 41 52 5f | 53 49 5a 45 2d 4d 61 6b | SET_AR_|SIZE-Mak|
|000004d0| 72 6f 73 2e 0d 20 2a 0d | 20 2a 20 52 65 76 69 73 |ros.. *.| * Revis|
|000004e0| 69 6f 6e 20 31 2e 34 20 | 20 31 39 39 33 2f 30 39 |ion 1.4 | 1993/09|
|000004f0| 2f 30 39 20 20 31 35 3a | 33 30 3a 31 33 20 20 75 |/09  15:|30:13  u|
|00000500| 68 6f 0d 20 2a 20 45 69 | 6e 69 67 65 20 4d 61 6b |ho. * Ei|nige Mak|
|00000510| 72 6f 64 65 66 69 6e 69 | 74 69 6f 6e 65 6e 20 65 |rodefini|tionen e|
|00000520| 69 6e 67 65 72 fc 63 6b | 74 2c 20 75 6d 20 64 69 |inger.ck|t, um di|
|00000530| 65 20 4c 65 73 62 61 72 | 6b 65 69 74 20 7a 75 20 |e Lesbar|keit zu |
|00000540| 65 72 68 f6 68 65 6e 2e | 0d 20 2a 0d 20 2a 20 52 |erh.hen.|. *. * R|
|00000550| 65 76 69 73 69 6f 6e 20 | 31 2e 33 20 20 31 39 39 |evision |1.3  199|
|00000560| 33 2f 30 39 2f 30 36 20 | 20 31 36 3a 34 33 3a 35 |3/09/06 | 16:43:5|
|00000570| 37 20 20 73 6d 61 0d 20 | 2a 20 55 6d 67 65 6f 72 |7  sma. |* Umgeor|
|00000580| 64 6e 65 74 2c 20 62 65 | 73 73 65 72 20 6b 6f 6d |dnet, be|sser kom|
|00000590| 6d 65 6e 74 69 65 72 74 | 2c 20 6e 65 75 65 20 4d |mentiert|, neue M|
|000005a0| 61 6b 72 6f 73 20 66 fc | 72 20 4b 6f 6e 73 74 61 |akros f.|r Konsta|
|000005b0| 6e 74 65 6e 64 65 66 69 | 6e 69 74 69 6f 6e 65 6e |ntendefi|nitionen|
|000005c0| 2e 0d 20 2a 20 63 67 63 | 6f 6e 73 74 2e 6c 69 73 |.. * cgc|onst.lis|
|000005d0| 70 20 65 72 7a 65 75 67 | 74 20 6a 65 74 7a 74 20 |p erzeug|t jetzt |
|000005e0| 6e 69 63 68 74 20 6d 69 | 72 20 64 69 72 65 6b 74 |nicht mi|r direkt|
|000005f0| 20 43 4c 5f 49 4e 49 54 | 2d 53 74 72 75 6b 74 75 | CL_INIT|-Struktu|
|00000600| 72 65 6e 2c 20 73 6f 6e | 64 65 72 6e 0d 20 2a 20 |ren, son|dern. * |
|00000610| 4d 41 4b 45 5f 2a 20 4d | 61 6b 72 6f 73 2c 20 64 |MAKE_* M|akros, d|
|00000620| 69 65 20 64 69 65 20 65 | 69 67 65 6e 74 6c 69 63 |ie die e|igentlic|
|00000630| 68 65 20 52 65 70 72 e4 | 73 65 6e 74 61 74 69 6f |he Repr.|sentatio|
|00000640| 6e 20 64 65 72 20 4c 69 | 73 70 64 61 74 65 6e 0d |n der Li|spdaten.|
|00000650| 20 2a 20 61 62 73 74 72 | 61 68 69 65 72 65 6e 2e | * abstr|ahieren.|
|00000660| 0d 20 2a 0d 20 2a 20 52 | 65 76 69 73 69 6f 6e 20 |. *. * R|evision |
|00000670| 31 2e 32 20 20 31 39 39 | 33 2f 30 38 2f 32 33 20 |1.2  199|3/08/23 |
|00000680| 20 30 39 3a 35 39 3a 34 | 34 20 20 70 6d 0d 20 2a | 09:59:4|4  pm. *|
|00000690| 20 41 65 6e 64 65 72 75 | 6e 67 65 6e 20 66 75 65 | Aenderu|ngen fue|
|000006a0| 72 20 43 2d 50 6f 69 6e | 74 65 72 0d 20 2a 0d 20 |r C-Poin|ter. *. |
|000006b0| 2a 20 52 65 76 69 73 69 | 6f 6e 20 31 2e 31 20 20 |* Revisi|on 1.1  |
|000006c0| 31 39 39 33 2f 30 38 2f | 32 32 20 20 31 34 3a 32 |1993/08/|22  14:2|
|000006d0| 36 3a 33 37 20 20 73 6d | 61 0d 20 2a 20 49 6e 69 |6:37  sm|a. * Ini|
|000006e0| 74 69 61 6c 20 72 65 76 | 69 73 69 6f 6e 0d 20 2a |tial rev|ision. *|
|000006f0| 0d 20 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. *-----|--------|
|00000700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2a |--------|-------*|
|00000740| 2f 0d 0d 0d 2f 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/.../*--|--------|
|00000750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000790| 2d 2d 2d 2d 0d 20 2a 20 | 57 65 72 74 65 20 66 fc |----. * |Werte f.|
|000007a0| 72 20 55 4e 42 4f 55 4e | 44 2c 20 4e 49 4c 20 75 |r UNBOUN|D, NIL u|
|000007b0| 6e 64 20 54 0d 20 2a 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nd T. *-|--------|
|000007c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000800| 2d 2d 2d 2a 2f 0d 23 64 | 65 66 69 6e 65 20 55 4e |---*/.#d|efine UN|
|00000810| 42 4f 55 4e 44 5f 56 41 | 4c 55 45 20 20 30 0d 23 |BOUND_VA|LUE  0.#|
|00000820| 64 65 66 69 6e 65 20 4e | 49 4c 5f 56 41 4c 55 45 |define N|IL_VALUE|
|00000830| 20 20 20 20 20 20 30 0d | 23 64 65 66 69 6e 65 20 |      0.|#define |
|00000840| 54 5f 56 41 4c 55 45 20 | 20 20 20 20 20 20 20 53 |T_VALUE |       S|
|00000850| 59 4d 42 4f 4c 28 53 73 | 79 73 2c 20 31 29 0d 0d |YMBOL(Ss|ys, 1)..|
|00000860| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00000870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008b0| 0d 20 2a 20 44 61 74 65 | 6e 73 74 72 75 6b 74 75 |. * Date|nstruktu|
|000008c0| 72 20 64 65 72 20 4c 49 | 53 50 2d 4f 62 6a 65 6b |r der LI|SP-Objek|
|000008d0| 74 65 0d 20 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |te. *---|--------|
|000008e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000920| 2d 2a 2f 0d 74 79 70 65 | 64 65 66 20 75 6e 73 69 |-*/.type|def unsi|
|00000930| 67 6e 65 64 20 73 68 6f | 72 74 20 54 41 47 3b 0d |gned sho|rt TAG;.|
|00000940| 74 79 70 65 64 65 66 20 | 73 74 72 75 63 74 20 63 |typedef |struct c|
|00000950| 6c 78 5f 66 6f 72 6d 20 | 43 4c 5f 46 4f 52 4d 3b |lx_form |CL_FORM;|
|00000960| 0d 0d 73 74 72 75 63 74 | 20 63 6c 78 5f 66 6f 72 |..struct| clx_for|
|00000970| 6d 0d 7b 0d 20 20 20 54 | 41 47 20 74 61 67 3b 0d |m.{.   T|AG tag;.|
|00000980| 20 20 20 75 6e 69 6f 6e | 0d 20 20 20 7b 0d 20 20 |   union|.   {.  |
|00000990| 20 20 20 20 6c 6f 6e 67 | 20 69 3b 0d 20 20 20 20 |    long| i;.    |
|000009a0| 20 20 64 6f 75 62 6c 65 | 20 2a 66 6c 3b 0d 20 20 |  double| *fl;.  |
|000009b0| 20 20 20 20 75 6e 73 69 | 67 6e 65 64 20 6c 6f 6e |    unsi|gned lon|
|000009c0| 67 20 63 68 3b 20 20 20 | 20 20 20 20 20 20 2f 2a |g ch;   |      /*|
|000009d0| 20 57 69 63 68 74 69 67 | 2c 20 6b 65 69 6e 20 27 | Wichtig|, kein '|
|000009e0| 63 68 61 72 27 20 6e 65 | 68 6d 65 6e 20 21 20 28 |char' ne|hmen ! (|
|000009f0| 73 2e 75 2e 29 20 2a 2f | 0d 20 20 20 20 20 20 6c |s.u.) */|.      l|
|00000a00| 6f 6e 67 20 2a 69 5f 70 | 74 72 3b 0d 20 20 20 20 |ong *i_p|tr;.    |
|00000a10| 20 20 63 68 61 72 20 2a | 63 68 5f 70 74 72 3b 0d |  char *|ch_ptr;.|
|00000a20| 20 20 20 20 20 20 43 4c | 5f 46 4f 52 4d 20 2a 66 |      CL|_FORM *f|
|00000a30| 6f 72 6d 3b 0d 20 20 20 | 20 20 20 43 4c 5f 46 4f |orm;.   |   CL_FO|
|00000a40| 52 4d 20 2a 73 79 6d 62 | 6f 6c 3b 0d 20 20 20 20 |RM *symb|ol;.    |
|00000a50| 20 20 46 49 4c 45 20 2a | 63 66 69 6c 65 3b 0d 20 |  FILE *|cfile;. |
|00000a60| 20 20 20 20 20 43 4c 4f | 53 55 52 45 5f 46 55 4e |     CLO|SURE_FUN|
|00000a70| 20 2a 66 75 6e 3b 0d 20 | 20 20 20 20 20 44 4f 57 | *fun;. |     DOW|
|00000a80| 4e 5f 46 55 4e 41 52 47 | 20 2a 64 66 61 72 67 3b |N_FUNARG| *dfarg;|
|00000a90| 0d 20 20 20 20 20 20 47 | 4c 4f 42 41 4c 5f 46 55 |.      G|LOBAL_FU|
|00000aa0| 4e 41 52 47 20 2a 67 66 | 61 72 67 3b 0d 20 20 20 |NARG *gf|arg;.   |
|00000ab0| 7d 20 76 61 6c 3b 0d 7d | 3b 0d 0d 0d 2f 2a 2d 2d |} val;.}|;.../*--|
|00000ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 20 2a 20 |--------|----. * |
|00000b10| 44 61 74 65 6e 73 74 72 | 75 6b 74 75 72 20 75 6e |Datenstr|uktur un|
|00000b20| 64 20 4d 61 6b 72 6f 73 | 20 7a 75 6d 20 49 6e 69 |d Makros| zum Ini|
|00000b30| 74 69 61 6c 69 73 69 65 | 72 65 6e 20 76 6f 6e 20 |tialisie|ren von |
|00000b40| 4c 49 53 50 2d 4f 62 6a | 65 6b 74 65 6e 2e 0d 20 |LISP-Obj|ekten.. |
|00000b50| 2a 0d 20 2a 20 45 73 20 | 6d 75 df 20 67 65 6c 74 |*. * Es |mu. gelt|
|00000b60| 65 6e 20 73 69 7a 65 6f | 66 28 6c 6f 6e 67 29 20 |en sizeo|f(long) |
|00000b70| 3d 3d 20 73 69 7a 65 6f | 66 28 20 4b 6f 6d 70 6f |== sizeo|f( Kompo|
|00000b80| 6e 65 6e 74 65 6e 20 76 | 6f 6e 20 43 4c 5f 46 4f |nenten v|on CL_FO|
|00000b90| 52 4d 20 29 2c 0d 20 2a | 20 73 6f 6e 73 74 20 6b |RM ),. *| sonst k|
|00000ba0| 61 6e 6e 20 66 65 68 6c | 65 72 68 61 66 74 65 72 |ann fehl|erhafter|
|00000bb0| 20 43 6f 64 65 20 65 72 | 7a 65 75 67 74 20 77 65 | Code er|zeugt we|
|00000bc0| 72 64 65 6e 2e 0d 20 2a | 20 20 20 20 20 20 20 20 |rden.. *|        |
|00000bd0| 20 20 43 4c 5f 46 4f 52 | 4d 20 20 20 20 20 20 20 |  CL_FOR|M       |
|00000be0| 20 20 20 43 4c 5f 49 4e | 49 54 0d 20 2a 20 20 20 |   CL_IN|IT. *   |
|00000bf0| 20 20 20 20 6c 6f 6e 67 | 3a 20 7c 2d 2d 2d 2d 7c |    long|: |----||
|00000c00| 2c 20 20 20 20 6c 6f 6e | 67 3a 20 20 20 7c 2d 2d |,    lon|g:   |--|
|00000c10| 2d 2d 7c 0d 20 2a 20 20 | 20 20 20 20 20 50 54 52 |--|. *  |     PTR|
|00000c20| 3a 20 20 7c 2d 2d 2d 2d | 2d 2d 7c 20 20 20 50 54 |:  |----|--|   PT|
|00000c30| 52 3a 20 20 7c 2d 2d 2d | 2d 2d 2d 7c 0d 20 2a 20 |R:  |---|---|. * |
|00000c40| 20 20 20 20 20 20 63 68 | 61 72 3a 20 7c 2d 7c 20 |      ch|ar: |-| |
|00000c50| 20 20 20 20 20 20 20 63 | 68 61 72 3a 20 20 20 20 |       c|har:    |
|00000c60| 20 20 7c 2d 7c 0d 20 2a | 2d 2d 2d 2d 2d 2d 2d 2d |  |-|. *|--------|
|00000c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000cb0| 2d 2d 2d 2d 2a 2f 0d 74 | 79 70 65 64 65 66 20 73 |----*/.t|ypedef s|
|00000cc0| 74 72 75 63 74 0d 7b 0d | 20 20 20 54 41 47 20 74 |truct.{.|   TAG t|
|00000cd0| 61 67 3b 0d 20 20 20 63 | 68 61 72 20 2a 76 61 6c |ag;.   c|har *val|
|00000ce0| 3b 0d 7d 0d 43 4c 5f 49 | 4e 49 54 3b 0d 23 64 65 |;.}.CL_I|NIT;.#de|
|00000cf0| 66 69 6e 65 20 43 4c 5f | 49 4e 49 54 32 28 6e 61 |fine CL_|INIT2(na|
|00000d00| 6d 65 29 20 43 4c 5f 49 | 4e 49 54 20 6e 61 6d 65 |me) CL_I|NIT name|
|00000d10| 5b 5d 20 3d 0d 20 20 20 | 0d 0d 2f 2a 2d 2d 2d 2d |[] =.   |../*----|
|00000d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 20 2a 20 4b 6f |--------|--. * Ko|
|00000d70| 6e 73 74 72 75 6b 74 6f | 72 65 6e 20 66 fc 72 20 |nstrukto|ren f.r |
|00000d80| 4b 6f 6e 73 74 61 6e 74 | 65 6e 64 65 66 69 6e 69 |Konstant|endefini|
|00000d90| 74 69 6f 6e 65 6e 0d 20 | 2a 2d 2d 2d 2d 2d 2d 2d |tionen. |*-------|
|00000da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000de0| 2d 2d 2d 2d 2d 2a 2f 0d | 23 64 65 66 69 6e 65 20 |-----*/.|#define |
|00000df0| 45 4e 44 5f 53 59 4d 44 | 45 46 20 20 30 20 20 20 |END_SYMD|EF  0   |
|00000e00| 20 20 20 20 20 20 20 20 | 2f 2a 20 45 6e 64 6d 61 |        |/* Endma|
|00000e10| 72 6b 69 65 72 75 6e 67 | 20 65 69 6e 65 72 20 53 |rkierung| einer S|
|00000e20| 79 6d 62 6f 6c 74 61 62 | 65 6c 6c 65 20 2a 2f 0d |ymboltab|elle */.|
|00000e30| 23 64 65 66 69 6e 65 20 | 49 53 5f 45 4e 44 5f 53 |#define |IS_END_S|
|00000e40| 59 4d 44 45 46 28 78 29 | 20 20 20 20 20 20 20 20 |YMDEF(x)|        |
|00000e50| 28 54 59 50 45 5f 4f 46 | 28 78 29 20 3d 3d 20 45 |(TYPE_OF|(x) == E|
|00000e60| 4e 44 5f 53 59 4d 44 45 | 46 29 0d 0d 23 64 65 66 |ND_SYMDE|F)..#def|
|00000e70| 69 6e 65 20 4d 41 4b 45 | 5f 4e 49 4c 20 20 20 20 |ine MAKE|_NIL    |
|00000e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 7b 20 43 4c |        |    { CL|
|00000e90| 5f 4e 49 4c 2c 20 28 63 | 68 61 72 20 2a 29 4e 49 |_NIL, (c|har *)NI|
|00000ea0| 4c 5f 56 41 4c 55 45 20 | 7d 0d 23 64 65 66 69 6e |L_VALUE |}.#defin|
|00000eb0| 65 20 4d 41 4b 45 5f 54 | 20 20 20 20 20 20 20 20 |e MAKE_T|        |
|00000ec0| 20 20 20 20 20 20 20 20 | 20 20 7b 20 43 4c 5f 53 |        |  { CL_S|
|00000ed0| 59 4d 42 4f 4c 2c 20 28 | 63 68 61 72 20 2a 29 54 |YMBOL, (|char *)T|
|00000ee0| 5f 56 41 4c 55 45 20 7d | 0d 23 64 65 66 69 6e 65 |_VALUE }|.#define|
|00000ef0| 20 4d 41 4b 45 5f 55 4e | 42 4f 55 4e 44 20 20 20 | MAKE_UN|BOUND   |
|00000f00| 20 20 20 20 20 20 20 20 | 20 7b 20 43 4c 5f 55 4e |        | { CL_UN|
|00000f10| 42 4f 55 4e 44 2c 20 28 | 63 68 61 72 20 2a 29 55 |BOUND, (|char *)U|
|00000f20| 4e 42 4f 55 4e 44 5f 56 | 41 4c 55 45 20 7d 0d 23 |NBOUND_V|ALUE }.#|
|00000f30| 64 65 66 69 6e 65 20 4d | 41 4b 45 5f 46 49 58 4e |define M|AKE_FIXN|
|00000f40| 55 4d 28 6e 75 6d 29 20 | 20 20 20 20 20 20 20 7b |UM(num) |       {|
|00000f50| 20 43 4c 5f 46 49 58 4e | 55 4d 2c 20 28 63 68 61 | CL_FIXN|UM, (cha|
|00000f60| 72 20 2a 29 6e 75 6d 20 | 7d 0d 23 64 65 66 69 6e |r *)num |}.#defin|
|00000f70| 65 20 4d 41 4b 45 5f 46 | 4c 4f 41 54 28 66 6c 70 |e MAKE_F|LOAT(flp|
|00000f80| 74 72 29 20 20 20 20 20 | 20 20 7b 20 43 4c 5f 46 |tr)     |  { CL_F|
|00000f90| 4c 4f 41 54 2c 20 28 63 | 68 61 72 20 2a 29 66 6c |LOAT, (c|har *)fl|
|00000fa0| 70 74 72 20 7d 0d 23 64 | 65 66 69 6e 65 20 4d 41 |ptr }.#d|efine MA|
|00000fb0| 4b 45 5f 43 48 41 52 28 | 63 68 72 29 20 20 20 20 |KE_CHAR(|chr)    |
|00000fc0| 20 20 20 20 20 20 7b 20 | 43 4c 5f 43 48 41 52 2c |      { |CL_CHAR,|
|00000fd0| 20 20 28 63 68 61 72 20 | 2a 29 63 68 72 20 7d 0d |  (char |*)chr }.|
|00000fe0| 0d 23 64 65 66 69 6e 65 | 20 4d 41 4b 45 5f 53 54 |.#define| MAKE_ST|
|00000ff0| 52 49 4e 47 28 6c 65 6e | 2c 20 73 74 72 29 5c 0d |RING(len|, str)\.|
|00001000| 20 20 20 7b 20 43 4c 5f | 46 49 58 4e 55 4d 2c 20 |   { CL_|FIXNUM, |
|00001010| 28 63 68 61 72 20 2a 29 | 6c 65 6e 20 7d 2c 5c 0d |(char *)|len },\.|
|00001020| 20 20 20 7b 20 52 54 5f | 43 48 41 52 5f 50 54 52 |   { RT_|CHAR_PTR|
|00001030| 2c 20 73 74 72 20 7d 0d | 0d 23 64 65 66 69 6e 65 |, str }.|.#define|
|00001040| 20 4d 41 4b 45 5f 53 59 | 4d 42 4f 4c 28 6c 65 6e | MAKE_SY|MBOL(len|
|00001050| 2c 20 6e 61 6d 65 2c 20 | 70 6c 73 74 2c 20 76 61 |, name, |plst, va|
|00001060| 6c 2c 20 70 6b 67 2c 20 | 63 66 29 5c 0d 20 20 20 |l, pkg, |cf)\.   |
|00001070| 7b 20 43 4c 5f 46 49 58 | 4e 55 4d 2c 20 28 63 68 |{ CL_FIX|NUM, (ch|
|00001080| 61 72 20 2a 29 6c 65 6e | 20 7d 2c 5c 0d 20 20 20 |ar *)len| },\.   |
|00001090| 7b 20 52 54 5f 43 48 41 | 52 5f 50 54 52 2c 20 6e |{ RT_CHA|R_PTR, n|
|000010a0| 61 6d 65 20 7d 2c 5c 0d | 20 20 20 20 20 70 6c 73 |ame },\.|     pls|
|000010b0| 74 2c 20 76 61 6c 2c 20 | 70 6b 67 2c 20 63 66 0d |t, val, |pkg, cf.|
|000010c0| 0d 23 64 65 66 69 6e 65 | 20 4d 41 4b 45 5f 43 4c |.#define| MAKE_CL|
|000010d0| 41 53 53 28 6e 61 6d 65 | 2c 20 63 70 6c 2c 20 73 |ASS(name|, cpl, s|
|000010e0| 6c 6f 74 6e 75 6d 2c 20 | 73 6c 6f 74 69 6e 66 6f |lotnum, |slotinfo|
|000010f0| 29 5c 0d 20 20 20 7b 20 | 43 4c 5f 46 49 58 4e 55 |)\.   { |CL_FIXNU|
|00001100| 4d 2c 20 28 63 68 61 72 | 20 2a 29 35 20 7d 2c 5c |M, (char| *)5 },\|
|00001110| 0d 20 20 20 20 20 4d 41 | 4b 45 5f 4e 49 4c 2c 5c |.     MA|KE_NIL,\|
|00001120| 0d 20 20 20 20 20 4d 41 | 4b 45 5f 53 59 4d 52 45 |.     MA|KE_SYMRE|
|00001130| 46 28 6e 61 6d 65 29 2c | 5c 0d 20 20 20 20 20 63 |F(name),|\.     c|
|00001140| 70 6c 2c 5c 0d 20 20 20 | 20 20 4d 41 4b 45 5f 46 |pl,\.   |  MAKE_F|
|00001150| 49 58 4e 55 4d 28 73 6c | 6f 74 6e 75 6d 29 2c 5c |IXNUM(sl|otnum),\|
|00001160| 0d 20 20 20 20 20 73 6c | 6f 74 69 6e 66 6f 0d 0d |.     sl|otinfo..|
|00001170| 23 64 65 66 69 6e 65 20 | 4d 41 4b 45 5f 49 4e 53 |#define |MAKE_INS|
|00001180| 54 41 4e 43 45 28 73 7a | 2c 20 63 6c 61 73 73 29 |TANCE(sz|, class)|
|00001190| 5c 0d 20 20 20 7b 20 43 | 4c 5f 46 49 58 4e 55 4d |\.   { C|L_FIXNUM|
|000011a0| 2c 20 28 63 68 61 72 20 | 2a 29 73 7a 20 7d 2c 5c |, (char |*)sz },\|
|000011b0| 0d 20 20 20 20 20 63 6c | 61 73 73 0d 0d 23 64 65 |.     cl|ass..#de|
|000011c0| 66 69 6e 65 20 4d 41 4b | 45 5f 43 4f 4e 53 28 63 |fine MAK|E_CONS(c|
|000011d0| 61 72 2c 20 63 64 72 29 | 20 20 20 20 20 63 61 72 |ar, cdr)|     car|
|000011e0| 2c 20 28 63 68 61 72 20 | 2a 29 63 64 72 0d 23 64 |, (char |*)cdr.#d|
|000011f0| 65 66 69 6e 65 20 4d 41 | 4b 45 5f 56 45 43 54 4f |efine MA|KE_VECTO|
|00001200| 52 28 73 7a 29 20 20 20 | 20 20 20 20 20 20 7b 20 |R(sz)   |      { |
|00001210| 43 4c 5f 46 49 58 4e 55 | 4d 2c 20 28 63 68 61 72 |CL_FIXNU|M, (char|
|00001220| 20 2a 29 73 7a 20 7d 0d | 23 64 65 66 69 6e 65 20 | *)sz }.|#define |
|00001230| 4d 41 4b 45 5f 41 52 52 | 41 59 28 72 61 6e 6b 2c |MAKE_ARR|AY(rank,|
|00001240| 20 64 69 6d 73 2c 20 73 | 7a 29 5c 0d 20 20 20 7b | dims, s|z)\.   {|
|00001250| 20 72 61 6e 6b 2c 20 28 | 63 68 61 72 20 2a 29 64 | rank, (|char *)d|
|00001260| 69 6d 73 20 7d 2c 5c 0d | 20 20 20 7b 20 43 4c 5f |ims },\.|   { CL_|
|00001270| 46 49 58 4e 55 4d 2c 20 | 28 63 68 61 72 20 2a 29 |FIXNUM, |(char *)|
|00001280| 73 7a 20 7d 0d 0d 23 64 | 65 66 69 6e 65 20 4d 41 |sz }..#d|efine MA|
|00001290| 4b 45 5f 53 54 52 52 45 | 46 28 73 74 72 29 20 20 |KE_STRRE|F(str)  |
|000012a0| 20 20 20 20 20 20 7b 20 | 43 4c 5f 53 4d 53 54 52 |      { |CL_SMSTR|
|000012b0| 2c 20 28 63 68 61 72 20 | 2a 29 73 74 72 20 7d 0d |, (char |*)str }.|
|000012c0| 23 64 65 66 69 6e 65 20 | 4d 41 4b 45 5f 53 59 4d |#define |MAKE_SYM|
|000012d0| 52 45 46 28 73 79 6d 29 | 20 20 20 20 20 20 20 20 |REF(sym)|        |
|000012e0| 7b 20 43 4c 5f 53 59 4d | 42 4f 4c 2c 20 28 63 68 |{ CL_SYM|BOL, (ch|
|000012f0| 61 72 20 2a 29 73 79 6d | 20 7d 0d 23 64 65 66 69 |ar *)sym| }.#defi|
|00001300| 6e 65 20 4d 41 4b 45 5f | 43 4c 41 53 53 52 45 46 |ne MAKE_|CLASSREF|
|00001310| 28 63 6c 61 73 73 29 20 | 20 20 20 7b 20 43 4c 5f |(class) |   { CL_|
|00001320| 49 4e 53 54 41 4e 43 45 | 2c 20 28 63 68 61 72 20 |INSTANCE|, (char |
|00001330| 2a 29 63 6c 61 73 73 20 | 7d 0d 23 64 65 66 69 6e |*)class |}.#defin|
|00001340| 65 20 4d 41 4b 45 5f 4c | 49 53 54 28 6c 69 73 74 |e MAKE_L|IST(list|
|00001350| 29 20 20 20 20 20 20 20 | 20 20 7b 20 43 4c 5f 43 |)       |  { CL_C|
|00001360| 4f 4e 53 2c 20 28 63 68 | 61 72 20 2a 29 6c 69 73 |ONS, (ch|ar *)lis|
|00001370| 74 20 7d 0d 23 64 65 66 | 69 6e 65 20 4d 41 4b 45 |t }.#def|ine MAKE|
|00001380| 5f 56 45 43 52 45 46 28 | 76 65 63 29 20 20 20 20 |_VECREF(|vec)    |
|00001390| 20 20 20 20 7b 20 43 4c | 5f 53 4d 56 45 43 5f 54 |    { CL|_SMVEC_T|
|000013a0| 2c 20 28 63 68 61 72 20 | 2a 29 76 65 63 20 7d 0d |, (char |*)vec }.|
|000013b0| 23 64 65 66 69 6e 65 20 | 4d 41 4b 45 5f 41 52 52 |#define |MAKE_ARR|
|000013c0| 45 46 28 61 72 29 20 20 | 20 20 20 20 20 20 20 20 |EF(ar)  |        |
|000013d0| 7b 20 43 4c 5f 53 4d 41 | 52 5f 54 2c 20 28 63 68 |{ CL_SMA|R_T, (ch|
|000013e0| 61 72 20 2a 29 61 72 20 | 7d 0d 23 64 65 66 69 6e |ar *)ar |}.#defin|
|000013f0| 65 20 4d 41 4b 45 5f 53 | 54 52 55 43 54 52 45 46 |e MAKE_S|TRUCTREF|
|00001400| 28 73 74 72 29 20 20 20 | 20 20 7b 20 43 4c 5f 53 |(str)   |  { CL_S|
|00001410| 54 52 55 43 54 2c 20 28 | 63 68 61 72 20 2a 29 73 |TRUCT, (|char *)s|
|00001420| 74 72 20 7d 0d 0d 23 64 | 65 66 69 6e 65 20 4d 41 |tr }..#d|efine MA|
|00001430| 4b 45 5f 47 4c 4f 42 46 | 55 4e 28 66 75 6e 29 20 |KE_GLOBF|UN(fun) |
|00001440| 20 20 20 20 20 20 7b 20 | 43 4c 5f 47 4c 4f 42 46 |      { |CL_GLOBF|
|00001450| 55 4e 2c 20 28 63 68 61 | 72 20 2a 29 66 75 6e 20 |UN, (cha|r *)fun |
|00001460| 7d 0d 0d 23 64 65 66 69 | 6e 65 20 43 4f 4e 53 54 |}..#defi|ne CONST|
|00001470| 5f 53 59 4d 20 20 20 4d | 41 4b 45 5f 54 20 20 20 |_SYM   M|AKE_T   |
|00001480| 20 20 20 2f 2a 20 53 79 | 6d 62 6f 6c 20 69 73 74 |   /* Sy|mbol ist|
|00001490| 20 6b 6f 6e 73 74 61 6e | 74 20 2a 2f 0d 23 64 65 | konstan|t */.#de|
|000014a0| 66 69 6e 65 20 4e 4f 52 | 4d 41 4c 5f 53 59 4d 20 |fine NOR|MAL_SYM |
|000014b0| 20 4d 41 4b 45 5f 4e 49 | 4c 20 20 20 20 2f 2a 20 | MAKE_NI|L    /* |
|000014c0| 53 79 6d 62 6f 6c 20 69 | 73 74 20 76 65 72 e4 6e |Symbol i|st ver.n|
|000014d0| 64 65 72 62 61 72 20 2a | 2f 0d 0d 0d 2f 2a 2d 2d |derbar *|/.../*--|
|000014e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001520| 2d 2d 2d 2d 2d 2d 2d 0d | 20 2a 20 44 65 66 69 6e |-------.| * Defin|
|00001530| 69 74 69 6f 6e 65 6e 20 | 64 65 72 20 44 61 74 65 |itionen |der Date|
|00001540| 6e 74 79 70 65 6e 20 76 | 6f 6e 20 4c 49 53 50 2d |ntypen v|on LISP-|
|00001550| 4f 62 6a 65 6b 74 65 6e | 0d 20 2a 0d 20 2a 20 42 |Objekten|. *. * B|
|00001560| 65 69 20 64 65 6e 20 41 | 72 72 61 79 2d 54 79 70 |ei den A|rray-Typ|
|00001570| 65 6e 20 69 73 74 20 66 | 6f 6c 67 65 6e 64 65 73 |en ist f|olgendes|
|00001580| 20 7a 75 20 62 65 61 63 | 68 74 65 6e 3a 0d 20 2a | zu beac|hten:. *|
|00001590| 20 20 20 20 2d 20 44 65 | 72 20 65 72 73 74 65 20 |    - De|r erste |
|000015a0| 54 79 70 20 73 6f 6c 6c | 74 65 20 62 65 69 20 65 |Typ soll|te bei e|
|000015b0| 69 6e 65 72 20 5a 61 68 | 6c 20 31 36 5e 6e 20 62 |iner Zah|l 16^n b|
|000015c0| 65 67 69 6e 6e 65 6e 0d | 20 2a 20 20 20 20 2d 20 |eginnen.| *    - |
|000015d0| 45 73 20 67 69 6c 74 20 | 69 6d 6d 65 72 20 64 69 |Es gilt |immer di|
|000015e0| 65 20 52 65 69 68 65 6e | 66 6f 6c 67 65 20 54 2c |e Reihen|folge T,|
|000015f0| 20 46 49 58 4e 55 4d 2c | 20 46 4c 4f 41 54 2c 20 | FIXNUM,| FLOAT, |
|00001600| 43 48 41 52 0d 20 2a 2d | 2d 2d 2d 2d 2d 2d 2d 2d |CHAR. *-|--------|
|00001610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001650| 2a 2f 0d 23 64 65 66 69 | 6e 65 20 43 4c 5f 55 4e |*/.#defi|ne CL_UN|
|00001660| 42 4f 55 4e 44 20 20 20 | 20 20 20 20 30 0d 23 64 |BOUND   |    0.#d|
|00001670| 65 66 69 6e 65 20 43 4c | 5f 46 49 58 4e 55 4d 20 |efine CL|_FIXNUM |
|00001680| 20 20 20 20 20 20 20 31 | 20 20 20 20 20 20 2f 2a |       1|      /*|
|00001690| 20 6e 75 6d 62 65 72 20 | 2a 2f 0d 23 64 65 66 69 | number |*/.#defi|
|000016a0| 6e 65 20 43 4c 5f 46 4c | 4f 41 54 20 20 20 20 20 |ne CL_FL|OAT     |
|000016b0| 20 20 20 20 32 20 20 20 | 20 20 20 2f 2a 20 6e 75 |    2   |   /* nu|
|000016c0| 6d 62 65 72 20 2a 2f 0d | 23 64 65 66 69 6e 65 20 |mber */.|#define |
|000016d0| 43 4c 5f 43 48 41 52 20 | 20 20 20 20 20 20 20 20 |CL_CHAR |        |
|000016e0| 20 33 0d 0d 23 64 65 66 | 69 6e 65 20 52 54 5f 46 | 3..#def|ine RT_F|
|000016f0| 4f 52 4d 5f 50 54 52 20 | 20 20 20 20 20 34 20 20 |ORM_PTR |     4  |
|00001700| 20 20 20 20 2f 2a 20 5a | 65 69 67 65 72 20 61 75 |    /* Z|eiger au|
|00001710| 66 20 46 4f 52 4d 2d 41 | 72 72 61 79 20 2a 2f 0d |f FORM-A|rray */.|
|00001720| 23 64 65 66 69 6e 65 20 | 52 54 5f 46 49 58 4e 55 |#define |RT_FIXNU|
|00001730| 4d 5f 50 54 52 20 20 20 | 20 35 20 20 20 20 20 20 |M_PTR   | 5      |
|00001740| 2f 2a 20 5a 65 69 67 65 | 72 20 61 75 66 20 46 49 |/* Zeige|r auf FI|
|00001750| 58 4e 55 4d 2d 41 72 72 | 61 79 20 2a 2f 0d 23 64 |XNUM-Arr|ay */.#d|
|00001760| 65 66 69 6e 65 20 52 54 | 5f 46 4c 4f 41 54 5f 50 |efine RT|_FLOAT_P|
|00001770| 54 52 20 20 20 20 20 36 | 20 20 20 20 20 20 2f 2a |TR     6|      /*|
|00001780| 20 5a 65 69 67 65 72 20 | 61 75 66 20 46 4c 4f 41 | Zeiger |auf FLOA|
|00001790| 54 2d 41 72 72 61 79 20 | 2a 2f 0d 23 64 65 66 69 |T-Array |*/.#defi|
|000017a0| 6e 65 20 52 54 5f 43 48 | 41 52 5f 50 54 52 20 20 |ne RT_CH|AR_PTR  |
|000017b0| 20 20 20 20 37 20 20 20 | 20 20 20 2f 2a 20 5a 65 |    7   |   /* Ze|
|000017c0| 69 67 65 72 20 61 75 66 | 20 43 48 41 52 2d 41 72 |iger auf| CHAR-Ar|
|000017d0| 72 61 79 20 28 53 74 72 | 69 6e 67 29 20 2a 2f 0d |ray (Str|ing) */.|
|000017e0| 0d 23 64 65 66 69 6e 65 | 20 43 4c 5f 53 59 4d 42 |.#define| CL_SYMB|
|000017f0| 4f 4c 20 20 20 20 20 20 | 20 31 33 20 20 20 20 20 |OL      | 13     |
|00001800| 20 2f 2a 20 73 79 6d 62 | 6f 6c 20 2a 2f 0d 23 64 | /* symb|ol */.#d|
|00001810| 65 66 69 6e 65 20 43 4c | 5f 4e 49 4c 20 20 20 20 |efine CL|_NIL    |
|00001820| 20 20 20 20 20 20 31 34 | 20 20 20 20 20 20 2f 2a |      14|      /*|
|00001830| 20 73 79 6d 62 6f 6c 2c | 20 6c 69 73 74 2c 20 20 | symbol,| list,  |
|00001840| 20 20 20 20 20 20 20 20 | 73 65 71 75 65 6e 63 65 |        |sequence|
|00001850| 20 2a 2f 0d 23 64 65 66 | 69 6e 65 20 43 4c 5f 43 | */.#def|ine CL_C|
|00001860| 4f 4e 53 20 20 20 20 20 | 20 20 20 20 31 35 20 20 |ONS     |    15  |
|00001870| 20 20 20 20 2f 2a 20 20 | 20 20 20 20 20 20 20 6c |    /*  |       l|
|00001880| 69 73 74 2c 20 20 20 20 | 20 20 20 20 20 20 73 65 |ist,    |      se|
|00001890| 71 75 65 6e 63 65 20 2a | 2f 0d 0d 23 64 65 66 69 |quence *|/..#defi|
|000018a0| 6e 65 20 43 4c 5f 56 45 | 43 20 20 20 20 20 20 20 |ne CL_VE|C       |
|000018b0| 20 20 20 31 36 0d 23 64 | 65 66 69 6e 65 20 43 4c |   16.#d|efine CL|
|000018c0| 5f 56 45 43 5f 54 20 20 | 20 20 20 20 20 20 31 36 |_VEC_T  |      16|
|000018d0| 20 20 20 20 20 20 2f 2a | 20 20 20 20 20 20 20 20 |      /*|        |
|000018e0| 20 76 65 63 74 6f 72 2c | 20 61 72 72 61 79 2c 20 | vector,| array, |
|000018f0| 73 65 71 75 65 6e 63 65 | 20 2a 2f 0d 23 64 65 66 |sequence| */.#def|
|00001900| 69 6e 65 20 43 4c 5f 56 | 45 43 5f 46 49 58 4e 55 |ine CL_V|EC_FIXNU|
|00001910| 4d 20 20 20 31 37 20 20 | 20 20 20 20 2f 2a 20 20 |M   17  |    /*  |
|00001920| 20 20 20 20 20 20 20 76 | 65 63 74 6f 72 2c 20 61 |       v|ector, a|
|00001930| 72 72 61 79 2c 20 73 65 | 71 75 65 6e 63 65 20 2a |rray, se|quence *|
|00001940| 2f 0d 23 64 65 66 69 6e | 65 20 43 4c 5f 56 45 43 |/.#defin|e CL_VEC|
|00001950| 5f 46 4c 4f 41 54 20 20 | 20 20 31 38 20 20 20 20 |_FLOAT  |  18    |
|00001960| 20 20 2f 2a 20 20 20 20 | 20 20 20 20 20 76 65 63 |  /*    |     vec|
|00001970| 74 6f 72 2c 20 61 72 72 | 61 79 2c 20 73 65 71 75 |tor, arr|ay, sequ|
|00001980| 65 6e 63 65 20 2a 2f 0d | 23 64 65 66 69 6e 65 20 |ence */.|#define |
|00001990| 43 4c 5f 53 54 52 49 4e | 47 20 20 20 20 20 20 20 |CL_STRIN|G       |
|000019a0| 31 39 20 20 20 20 20 20 | 2f 2a 20 73 74 72 69 6e |19      |/* strin|
|000019b0| 67 2c 20 76 65 63 74 6f | 72 2c 20 61 72 72 61 79 |g, vecto|r, array|
|000019c0| 2c 20 73 65 71 75 65 6e | 63 65 20 2a 2f 0d 0d 23 |, sequen|ce */..#|
|000019d0| 64 65 66 69 6e 65 20 43 | 4c 5f 53 4d 56 45 43 20 |define C|L_SMVEC |
|000019e0| 20 20 20 20 20 20 20 32 | 30 20 20 20 20 20 0d 23 |       2|0     .#|
|000019f0| 64 65 66 69 6e 65 20 43 | 4c 5f 53 4d 56 45 43 5f |define C|L_SMVEC_|
|00001a00| 54 20 20 20 20 20 20 32 | 30 20 20 20 20 20 20 2f |T      2|0      /|
|00001a10| 2a 20 20 20 20 20 20 20 | 20 20 76 65 63 74 6f 72 |*       |  vector|
|00001a20| 2c 20 61 72 72 61 79 2c | 20 73 65 71 75 65 6e 63 |, array,| sequenc|
|00001a30| 65 20 2a 2f 0d 23 64 65 | 66 69 6e 65 20 43 4c 5f |e */.#de|fine CL_|
|00001a40| 53 4d 56 45 43 5f 46 49 | 58 4e 55 4d 20 32 31 20 |SMVEC_FI|XNUM 21 |
|00001a50| 20 20 20 20 20 2f 2a 20 | 20 20 20 20 20 20 20 20 |     /* |        |
|00001a60| 76 65 63 74 6f 72 2c 20 | 61 72 72 61 79 2c 20 73 |vector, |array, s|
|00001a70| 65 71 75 65 6e 63 65 20 | 2a 2f 0d 23 64 65 66 69 |equence |*/.#defi|
|00001a80| 6e 65 20 43 4c 5f 53 4d | 56 45 43 5f 46 4c 4f 41 |ne CL_SM|VEC_FLOA|
|00001a90| 54 20 20 32 32 20 20 20 | 20 20 20 2f 2a 20 20 20 |T  22   |   /*   |
|00001aa0| 20 20 20 20 20 20 76 65 | 63 74 6f 72 2c 20 61 72 |      ve|ctor, ar|
|00001ab0| 72 61 79 2c 20 73 65 71 | 75 65 6e 63 65 20 2a 2f |ray, seq|uence */|
|00001ac0| 0d 23 64 65 66 69 6e 65 | 20 43 4c 5f 53 4d 53 54 |.#define| CL_SMST|
|00001ad0| 52 20 20 20 20 20 20 20 | 20 32 33 20 20 20 20 20 |R       | 23     |
|00001ae0| 20 2f 2a 20 73 74 72 69 | 6e 67 2c 20 76 65 63 74 | /* stri|ng, vect|
|00001af0| 6f 72 2c 20 61 72 72 61 | 79 2c 20 73 65 71 75 65 |or, arra|y, seque|
|00001b00| 6e 63 65 20 2a 2f 0d 0d | 23 64 65 66 69 6e 65 20 |nce */..|#define |
|00001b10| 43 4c 5f 53 4d 41 52 20 | 20 20 20 20 20 20 20 20 |CL_SMAR |        |
|00001b20| 32 34 0d 23 64 65 66 69 | 6e 65 20 43 4c 5f 53 4d |24.#defi|ne CL_SM|
|00001b30| 41 52 5f 54 20 20 20 20 | 20 20 20 32 34 20 20 20 |AR_T    |   24   |
|00001b40| 20 20 20 2f 2a 20 20 20 | 20 20 20 20 20 20 20 20 |   /*   |        |
|00001b50| 20 20 20 20 20 20 61 72 | 72 61 79 2c 20 73 65 71 |      ar|ray, seq|
|00001b60| 75 65 6e 63 65 20 2a 2f | 0d 23 64 65 66 69 6e 65 |uence */|.#define|
|00001b70| 20 43 4c 5f 53 4d 41 52 | 5f 46 49 58 4e 55 4d 20 | CL_SMAR|_FIXNUM |
|00001b80| 20 32 35 20 20 20 20 20 | 20 2f 2a 20 20 20 20 20 | 25     | /*     |
|00001b90| 20 20 20 20 20 20 20 20 | 20 20 20 20 61 72 72 61 |        |    arra|
|00001ba0| 79 2c 20 73 65 71 75 65 | 6e 63 65 20 2a 2f 0d 23 |y, seque|nce */.#|
|00001bb0| 64 65 66 69 6e 65 20 43 | 4c 5f 53 4d 41 52 5f 46 |define C|L_SMAR_F|
|00001bc0| 4c 4f 41 54 20 20 20 32 | 36 20 20 20 20 20 20 2f |LOAT   2|6      /|
|00001bd0| 2a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |*       |        |
|00001be0| 20 20 61 72 72 61 79 2c | 20 73 65 71 75 65 6e 63 |  array,| sequenc|
|00001bf0| 65 20 2a 2f 0d 23 64 65 | 66 69 6e 65 20 43 4c 5f |e */.#de|fine CL_|
|00001c00| 53 4d 41 52 5f 43 48 41 | 52 20 20 20 20 32 37 20 |SMAR_CHA|R    27 |
|00001c10| 20 20 20 20 20 2f 2a 20 | 20 20 20 20 20 20 20 20 |     /* |        |
|00001c20| 20 20 20 20 20 20 20 20 | 61 72 72 61 79 2c 20 73 |        |array, s|
|00001c30| 65 71 75 65 6e 63 65 20 | 2a 2f 0d 0d 23 64 65 66 |equence |*/..#def|
|00001c40| 69 6e 65 20 43 4c 5f 41 | 52 20 20 20 20 20 20 20 |ine CL_A|R       |
|00001c50| 20 20 20 20 32 38 0d 23 | 64 65 66 69 6e 65 20 43 |    28.#|define C|
|00001c60| 4c 5f 41 52 5f 54 20 20 | 20 20 20 20 20 20 20 32 |L_AR_T  |       2|
|00001c70| 38 20 20 20 20 20 20 2f | 2a 20 20 20 20 20 20 20 |8      /|*       |
|00001c80| 20 20 20 20 20 20 20 20 | 20 20 61 72 72 61 79 2c |        |  array,|
|00001c90| 20 73 65 71 75 65 6e 63 | 65 20 2a 2f 0d 23 64 65 | sequenc|e */.#de|
|00001ca0| 66 69 6e 65 20 43 4c 5f | 41 52 5f 46 49 58 4e 55 |fine CL_|AR_FIXNU|
|00001cb0| 4d 20 20 20 20 32 39 20 | 20 20 20 20 20 2f 2a 20 |M    29 |     /* |
|00001cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001cd0| 61 72 72 61 79 2c 20 73 | 65 71 75 65 6e 63 65 20 |array, s|equence |
|00001ce0| 2a 2f 0d 23 64 65 66 69 | 6e 65 20 43 4c 5f 41 52 |*/.#defi|ne CL_AR|
|00001cf0| 5f 46 4c 4f 41 54 20 20 | 20 20 20 33 30 20 20 20 |_FLOAT  |   30   |
|00001d00| 20 20 20 2f 2a 20 20 20 | 20 20 20 20 20 20 20 20 |   /*   |        |
|00001d10| 20 20 20 20 20 20 61 72 | 72 61 79 2c 20 73 65 71 |      ar|ray, seq|
|00001d20| 75 65 6e 63 65 20 2a 2f | 0d 23 64 65 66 69 6e 65 |uence */|.#define|
|00001d30| 20 43 4c 5f 41 52 5f 43 | 48 41 52 20 20 20 20 20 | CL_AR_C|HAR     |
|00001d40| 20 33 31 20 20 20 20 20 | 20 2f 2a 20 20 20 20 20 | 31     | /*     |
|00001d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 61 72 72 61 |        |    arra|
|00001d60| 79 2c 20 73 65 71 75 65 | 6e 63 65 20 2a 2f 0d 0d |y, seque|nce */..|
|00001d70| 23 64 65 66 69 6e 65 20 | 43 4c 5f 43 4c 4f 53 55 |#define |CL_CLOSU|
|00001d80| 52 45 20 20 20 20 20 20 | 33 32 20 20 20 20 20 20 |RE      |32      |
|00001d90| 2f 2a 20 66 75 6e 63 74 | 69 6f 6e 20 2a 2f 0d 23 |/* funct|ion */.#|
|00001da0| 64 65 66 69 6e 65 20 43 | 4c 5f 44 4f 57 4e 46 55 |define C|L_DOWNFU|
|00001db0| 4e 20 20 20 20 20 20 33 | 33 20 20 20 20 20 20 2f |N      3|3      /|
|00001dc0| 2a 20 66 75 6e 63 74 69 | 6f 6e 20 2a 2f 0d 23 64 |* functi|on */.#d|
|00001dd0| 65 66 69 6e 65 20 43 4c | 5f 47 4c 4f 42 46 55 4e |efine CL|_GLOBFUN|
|00001de0| 20 20 20 20 20 20 33 34 | 20 20 20 20 20 20 2f 2a |      34|      /*|
|00001df0| 20 66 75 6e 63 74 69 6f | 6e 20 2a 2f 0d 0d 23 64 | functio|n */..#d|
|00001e00| 65 66 69 6e 65 20 43 4c | 5f 43 4f 44 45 20 20 20 |efine CL|_CODE   |
|00001e10| 20 20 20 20 20 20 33 37 | 0d 23 64 65 66 69 6e 65 |      37|.#define|
|00001e20| 20 43 4c 5f 49 4e 44 20 | 20 20 20 20 20 20 20 20 | CL_IND |        |
|00001e30| 20 33 38 0d 23 64 65 66 | 69 6e 65 20 43 4c 5f 53 | 38.#def|ine CL_S|
|00001e40| 54 52 55 43 54 20 20 20 | 20 20 20 20 33 39 20 20 |TRUCT   |    39  |
|00001e50| 20 20 20 20 2f 2a 20 53 | 74 72 75 63 74 75 72 65 |    /* S|tructure|
|00001e60| 20 2a 2f 0d 23 64 65 66 | 69 6e 65 20 43 4c 5f 43 | */.#def|ine CL_C|
|00001e70| 46 49 4c 45 20 20 20 20 | 20 20 20 20 34 31 0d 23 |FILE    |    41.#|
|00001e80| 64 65 66 69 6e 65 20 43 | 4c 5f 55 4e 49 51 55 45 |define C|L_UNIQUE|
|00001e90| 5f 54 41 47 20 20 20 34 | 32 20 20 20 20 20 20 2f |_TAG   4|2      /|
|00001ea0| 2a 20 66 75 65 72 20 61 | 75 74 6f 6d 61 74 69 73 |* fuer a|utomatis|
|00001eb0| 63 68 20 67 65 6e 65 72 | 69 65 72 74 65 20 43 41 |ch gener|ierte CA|
|00001ec0| 54 43 48 2d 54 61 67 73 | 20 2a 2f 0d 0d 23 64 65 |TCH-Tags| */..#de|
|00001ed0| 66 69 6e 65 20 43 4c 5f | 49 4e 53 54 41 4e 43 45 |fine CL_|INSTANCE|
|00001ee0| 20 20 20 20 20 35 30 20 | 20 20 20 20 20 2f 2a 20 |     50 |     /* |
|00001ef0| 43 4c 4f 53 20 49 6e 73 | 74 61 6e 7a 20 2a 2f 0d |CLOS Ins|tanz */.|
|00001f00| 0d 2f 2a 20 44 69 65 20 | 6e e4 63 68 73 74 65 6e |./* Die |n.chsten|
|00001f10| 20 4b 6f 6e 73 74 61 6e | 74 65 6e 20 6d fc 73 73 | Konstan|ten m.ss|
|00001f20| 65 6e 20 69 6e 20 64 69 | 65 73 65 72 20 52 65 69 |en in di|eser Rei|
|00001f30| 68 65 6e 66 6f 6c 67 65 | 20 73 74 65 68 65 6e 21 |henfolge| stehen!|
|00001f40| 21 20 2a 2f 0d 23 64 65 | 66 69 6e 65 20 43 4c 5f |! */.#de|fine CL_|
|00001f50| 43 5f 43 48 41 52 20 20 | 20 20 20 20 20 20 20 20 |C_CHAR  |        |
|00001f60| 20 36 30 20 20 2f 2a 20 | 63 68 61 72 2c 20 73 69 | 60  /* |char, si|
|00001f70| 67 6e 65 64 2d 63 68 61 | 72 20 2a 2f 0d 23 64 65 |gned-cha|r */.#de|
|00001f80| 66 69 6e 65 20 43 4c 5f | 43 5f 53 48 4f 52 54 20 |fine CL_|C_SHORT |
|00001f90| 20 20 20 20 20 20 20 20 | 20 36 31 20 20 2f 2a 20 |        | 61  /* |
|00001fa0| 73 68 6f 72 74 2c 20 73 | 68 6f 72 74 2d 69 6e 74 |short, s|hort-int|
|00001fb0| 2c 20 73 69 67 6e 65 64 | 2d 73 68 6f 72 74 2c 0d |, signed|-short,.|
|00001fc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001fe0| 20 20 20 73 69 67 6e 65 | 64 2d 73 68 6f 72 74 2d |   signe|d-short-|
|00001ff0| 69 6e 74 20 2a 2f 20 0d | 23 64 65 66 69 6e 65 20 |int */ .|#define |
|00002000| 43 4c 5f 43 5f 49 4e 54 | 20 20 20 20 20 20 20 20 |CL_C_INT|        |
|00002010| 20 20 20 20 36 32 20 20 | 2f 2a 20 69 6e 74 2c 20 |    62  |/* int, |
|00002020| 73 69 67 6e 65 64 2c 20 | 73 69 67 6e 65 64 2d 69 |signed, |signed-i|
|00002030| 6e 74 20 2a 2f 0d 23 64 | 65 66 69 6e 65 20 43 4c |nt */.#d|efine CL|
|00002040| 5f 43 5f 4c 4f 4e 47 20 | 20 20 20 20 20 20 20 20 |_C_LONG |        |
|00002050| 20 20 36 33 20 20 2f 2a | 20 6c 6f 6e 67 2c 20 6c |  63  /*| long, l|
|00002060| 6f 6e 67 2d 69 6e 74 2c | 20 73 69 67 6e 65 64 2d |ong-int,| signed-|
|00002070| 6c 6f 6e 67 2c 0d 20 20 | 20 20 20 20 20 20 20 20 |long,.  |        |
|00002080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002090| 20 20 20 20 20 20 20 20 | 20 73 69 67 6e 65 64 2d |        | signed-|
|000020a0| 6c 6f 6e 67 2d 69 6e 74 | 20 2a 2f 0d 23 64 65 66 |long-int| */.#def|
|000020b0| 69 6e 65 20 43 4c 5f 43 | 5f 55 4e 53 49 47 4e 45 |ine CL_C|_UNSIGNE|
|000020c0| 44 5f 43 48 41 52 20 20 | 36 34 20 0d 23 64 65 66 |D_CHAR  |64 .#def|
|000020d0| 69 6e 65 20 43 4c 5f 43 | 5f 55 4e 53 49 47 4e 45 |ine CL_C|_UNSIGNE|
|000020e0| 44 5f 53 48 4f 52 54 20 | 36 35 0d 23 64 65 66 69 |D_SHORT |65.#defi|
|000020f0| 6e 65 20 43 4c 5f 43 5f | 55 4e 53 49 47 4e 45 44 |ne CL_C_|UNSIGNED|
|00002100| 5f 49 4e 54 20 20 20 36 | 36 20 20 2f 2a 20 75 6e |_INT   6|6  /* un|
|00002110| 73 69 67 6e 65 64 2d 69 | 6e 74 2c 20 75 6e 73 69 |signed-i|nt, unsi|
|00002120| 67 6e 65 64 20 2a 2f 0d | 23 64 65 66 69 6e 65 20 |gned */.|#define |
|00002130| 43 4c 5f 43 5f 55 4e 53 | 49 47 4e 45 44 5f 4c 4f |CL_C_UNS|IGNED_LO|
|00002140| 4e 47 20 20 36 37 0d 0d | 23 64 65 66 69 6e 65 20 |NG  67..|#define |
|00002150| 43 4c 5f 43 5f 46 4c 4f | 41 54 20 20 20 20 20 20 |CL_C_FLO|AT      |
|00002160| 20 20 20 20 36 38 0d 23 | 64 65 66 69 6e 65 20 43 |    68.#|define C|
|00002170| 4c 5f 43 5f 44 4f 55 42 | 4c 45 20 20 20 20 20 20 |L_C_DOUB|LE      |
|00002180| 20 20 20 36 39 0d 23 64 | 65 66 69 6e 65 20 43 4c |   69.#d|efine CL|
|00002190| 5f 43 5f 4c 4f 4e 47 5f | 44 4f 55 42 4c 45 20 20 |_C_LONG_|DOUBLE  |
|000021a0| 20 20 37 30 0d 0d 23 64 | 65 66 69 6e 65 20 43 4c |  70..#d|efine CL|
|000021b0| 5f 43 5f 53 54 52 55 43 | 54 20 20 20 20 20 20 20 |_C_STRUC|T       |
|000021c0| 20 20 37 31 0d 23 64 65 | 66 69 6e 65 20 43 4c 5f |  71.#de|fine CL_|
|000021d0| 43 5f 55 4e 49 4f 4e 20 | 20 20 20 20 20 20 20 20 |C_UNION |        |
|000021e0| 20 37 32 0d 23 64 65 66 | 69 6e 65 20 43 4c 5f 43 | 72.#def|ine CL_C|
|000021f0| 5f 41 52 52 41 59 20 20 | 20 20 20 20 20 20 20 20 |_ARRAY  |        |
|00002200| 37 33 0d 0d 23 64 65 66 | 69 6e 65 20 43 4c 5f 43 |73..#def|ine CL_C|
|00002210| 5f 43 48 41 52 5f 50 54 | 52 20 20 20 20 20 20 20 |_CHAR_PT|R       |
|00002220| 20 20 20 20 20 37 34 0d | 23 64 65 66 69 6e 65 20 |     74.|#define |
|00002230| 43 4c 5f 43 5f 53 48 4f | 52 54 5f 50 54 52 20 20 |CL_C_SHO|RT_PTR  |
|00002240| 20 20 20 20 20 20 20 20 | 20 37 35 0d 23 64 65 66 |        | 75.#def|
|00002250| 69 6e 65 20 43 4c 5f 43 | 5f 49 4e 54 5f 50 54 52 |ine CL_C|_INT_PTR|
|00002260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 37 36 0d |        |     76.|
|00002270| 23 64 65 66 69 6e 65 20 | 43 4c 5f 43 5f 4c 4f 4e |#define |CL_C_LON|
|00002280| 47 5f 50 54 52 20 20 20 | 20 20 20 20 20 20 20 20 |G_PTR   |        |
|00002290| 20 37 37 0d 0d 23 64 65 | 66 69 6e 65 20 43 4c 5f | 77..#de|fine CL_|
|000022a0| 43 5f 55 4e 53 49 47 4e | 45 44 5f 43 48 41 52 5f |C_UNSIGN|ED_CHAR_|
|000022b0| 50 54 52 20 20 20 37 38 | 0d 23 64 65 66 69 6e 65 |PTR   78|.#define|
|000022c0| 20 43 4c 5f 43 5f 55 4e | 53 49 47 4e 45 44 5f 53 | CL_C_UN|SIGNED_S|
|000022d0| 48 4f 52 54 5f 50 54 52 | 20 20 37 39 0d 23 64 65 |HORT_PTR|  79.#de|
|000022e0| 66 69 6e 65 20 43 4c 5f | 43 5f 55 4e 53 49 47 4e |fine CL_|C_UNSIGN|
|000022f0| 45 44 5f 49 4e 54 5f 50 | 54 52 20 20 20 20 38 30 |ED_INT_P|TR    80|
|00002300| 0d 23 64 65 66 69 6e 65 | 20 43 4c 5f 43 5f 55 4e |.#define| CL_C_UN|
|00002310| 53 49 47 4e 45 44 5f 4c | 4f 4e 47 5f 50 54 52 20 |SIGNED_L|ONG_PTR |
|00002320| 20 20 38 31 0d 0d 23 64 | 65 66 69 6e 65 20 43 4c |  81..#d|efine CL|
|00002330| 5f 43 5f 53 54 52 55 43 | 54 5f 50 54 52 20 20 20 |_C_STRUC|T_PTR   |
|00002340| 20 20 20 20 20 20 20 38 | 32 0d 2f 2a 20 42 69 73 |       8|2./* Bis|
|00002350| 20 68 69 65 72 20 69 73 | 74 20 64 69 65 20 52 65 | hier is|t die Re|
|00002360| 69 68 65 6e 66 6f 6c 67 | 65 20 77 69 63 68 74 69 |ihenfolg|e wichti|
|00002370| 67 20 2a 2f 0d 0d 0d 2f | 2a 2d 2d 2d 2d 2d 2d 2d |g */.../|*-------|
|00002380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023c0| 2d 2d 2d 2d 2d 2d 2d 0d | 20 2a 20 42 65 72 65 69 |-------.| * Berei|
|000023d0| 63 68 65 20 66 fc 72 20 | 53 65 71 75 65 6e 63 65 |che f.r |Sequence|
|000023e0| 6e 2c 20 56 65 6b 74 6f | 72 65 6e 20 75 6e 64 20 |n, Vekto|ren und |
|000023f0| 41 72 72 61 79 73 2e 0d | 20 2a 2d 2d 2d 2d 2d 2d |Arrays..| *------|
|00002400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002440| 2d 2d 2d 2d 2d 2d 2a 2f | 0d 23 64 65 66 69 6e 65 |------*/|.#define|
|00002450| 20 54 5f 53 45 51 5f 4c | 4f 20 20 20 43 4c 5f 4e | T_SEQ_L|O   CL_N|
|00002460| 49 4c 0d 23 64 65 66 69 | 6e 65 20 54 5f 53 45 51 |IL.#defi|ne T_SEQ|
|00002470| 5f 48 49 20 20 20 43 4c | 5f 41 52 5f 43 48 41 52 |_HI   CL|_AR_CHAR|
|00002480| 0d 23 64 65 66 69 6e 65 | 20 54 5f 56 45 43 5f 4c |.#define| T_VEC_L|
|00002490| 4f 20 20 20 43 4c 5f 56 | 45 43 5f 54 0d 23 64 65 |O   CL_V|EC_T.#de|
|000024a0| 66 69 6e 65 20 54 5f 56 | 45 43 5f 48 49 20 20 20 |fine T_V|EC_HI   |
|000024b0| 43 4c 5f 53 4d 53 54 52 | 0d 23 64 65 66 69 6e 65 |CL_SMSTR|.#define|
|000024c0| 20 54 5f 41 52 52 5f 4c | 4f 20 20 20 43 4c 5f 56 | T_ARR_L|O   CL_V|
|000024d0| 45 43 5f 54 0d 23 64 65 | 66 69 6e 65 20 54 5f 41 |EC_T.#de|fine T_A|
|000024e0| 52 52 5f 48 49 20 20 20 | 43 4c 5f 41 52 5f 43 48 |RR_HI   |CL_AR_CH|
|000024f0| 41 52 0d 23 64 65 66 69 | 6e 65 20 54 5f 53 4d 41 |AR.#defi|ne T_SMA|
|00002500| 52 5f 4c 4f 20 20 43 4c | 5f 53 4d 56 45 43 5f 54 |R_LO  CL|_SMVEC_T|
|00002510| 0d 23 64 65 66 69 6e 65 | 20 54 5f 53 4d 41 52 5f |.#define| T_SMAR_|
|00002520| 48 49 20 20 43 4c 5f 53 | 4d 41 52 5f 43 48 41 52 |HI  CL_S|MAR_CHAR|
|00002530| 0d 0d 0d 2f 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.../*---|--------|
|00002540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002580| 2d 2d 2d 0d 20 2a 20 4d | 61 6b 72 6f 73 20 66 fc |---. * M|akros f.|
|00002590| 72 20 64 65 6e 20 5a 75 | 67 72 69 66 66 20 61 75 |r den Zu|griff au|
|000025a0| 66 20 64 69 65 20 4b 6f | 6d 70 6f 6e 65 6e 74 65 |f die Ko|mponente|
|000025b0| 6e 20 65 69 6e 65 73 20 | 4c 49 53 50 2d 4f 62 6a |n eines |LISP-Obj|
|000025c0| 65 6b 74 65 73 0d 20 2a | 2d 2d 2d 2d 2d 2d 2d 2d |ektes. *|--------|
|000025d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000025e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000025f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002610| 2d 2d 2d 2d 2a 2f 0d 2f | 2a 20 54 61 67 73 20 2a |----*/./|* Tags *|
|00002620| 2f 0d 23 64 65 66 69 6e | 65 20 54 59 50 45 5f 4f |/.#defin|e TYPE_O|
|00002630| 46 28 6c 6f 63 29 20 20 | 20 20 20 20 20 20 20 20 |F(loc)  |        |
|00002640| 20 20 28 28 6c 6f 63 29 | 2d 3e 74 61 67 29 0d 23 |  ((loc)|->tag).#|
|00002650| 64 65 66 69 6e 65 20 53 | 45 54 5f 54 41 47 28 6c |define S|ET_TAG(l|
|00002660| 6f 63 2c 20 76 61 6c 75 | 65 29 20 20 20 20 20 28 |oc, valu|e)     (|
|00002670| 54 59 50 45 5f 4f 46 28 | 6c 6f 63 29 20 3d 20 28 |TYPE_OF(|loc) = (|
|00002680| 76 61 6c 75 65 29 29 0d | 0d 2f 2a 20 47 72 75 6e |value)).|./* Grun|
|00002690| 64 74 79 70 65 6e 20 2a | 2f 0d 23 64 65 66 69 6e |dtypen *|/.#defin|
|000026a0| 65 20 47 45 54 5f 46 4f | 52 4d 28 6c 6f 63 29 20 |e GET_FO|RM(loc) |
|000026b0| 20 20 20 20 20 20 20 20 | 20 20 28 28 6c 6f 63 29 |        |  ((loc)|
|000026c0| 2d 3e 76 61 6c 2e 66 6f | 72 6d 29 0d 0d 23 64 65 |->val.fo|rm)..#de|
|000026d0| 66 69 6e 65 20 47 45 54 | 5f 46 49 58 4e 55 4d 28 |fine GET|_FIXNUM(|
|000026e0| 6c 6f 63 29 20 20 20 20 | 20 20 20 20 20 28 28 6c |loc)    |     ((l|
|000026f0| 6f 63 29 2d 3e 76 61 6c | 2e 69 29 0d 23 64 65 66 |oc)->val|.i).#def|
|00002700| 69 6e 65 20 47 45 54 5f | 46 4c 4f 41 54 28 6c 6f |ine GET_|FLOAT(lo|
|00002710| 63 29 20 20 20 20 20 20 | 20 20 20 20 28 2a 28 28 |c)      |    (*((|
|00002720| 6c 6f 63 29 2d 3e 76 61 | 6c 2e 66 6c 29 29 0d 23 |loc)->va|l.fl)).#|
|00002730| 64 65 66 69 6e 65 20 47 | 45 54 5f 43 48 41 52 28 |define G|ET_CHAR(|
|00002740| 6c 6f 63 29 20 20 20 20 | 20 20 20 20 20 20 20 28 |loc)    |       (|
|00002750| 63 68 61 72 29 28 28 6c | 6f 63 29 2d 3e 76 61 6c |char)((l|oc)->val|
|00002760| 2e 63 68 29 0d 0d 23 64 | 65 66 69 6e 65 20 47 45 |.ch)..#d|efine GE|
|00002770| 54 5f 46 49 58 4e 55 4d | 5f 50 54 52 28 6c 6f 63 |T_FIXNUM|_PTR(loc|
|00002780| 29 20 20 20 20 20 28 28 | 6c 6f 63 29 2d 3e 76 61 |)     ((|loc)->va|
|00002790| 6c 2e 69 5f 70 74 72 29 | 0d 23 64 65 66 69 6e 65 |l.i_ptr)|.#define|
|000027a0| 20 47 45 54 5f 46 4c 4f | 41 54 5f 50 54 52 28 6c | GET_FLO|AT_PTR(l|
|000027b0| 6f 63 29 20 20 20 20 20 | 20 28 28 6c 6f 63 29 2d |oc)     | ((loc)-|
|000027c0| 3e 76 61 6c 2e 66 6c 29 | 0d 23 64 65 66 69 6e 65 |>val.fl)|.#define|
|000027d0| 20 47 45 54 5f 43 48 41 | 52 5f 50 54 52 28 6c 6f | GET_CHA|R_PTR(lo|
|000027e0| 63 29 20 20 20 20 20 20 | 20 28 28 6c 6f 63 29 2d |c)      | ((loc)-|
|000027f0| 3e 76 61 6c 2e 63 68 5f | 70 74 72 29 0d 0d 2f 2a |>val.ch_|ptr)../*|
|00002800| 20 4c 69 73 74 65 6e 20 | 2a 2f 0d 23 64 65 66 69 | Listen |*/.#defi|
|00002810| 6e 65 20 43 41 52 28 6c | 70 74 72 29 20 20 20 20 |ne CAR(l|ptr)    |
|00002820| 20 20 20 20 20 20 20 20 | 20 20 20 28 6c 70 74 72 |        |   (lptr|
|00002830| 29 0d 23 64 65 66 69 6e | 65 20 43 44 52 28 6c 70 |).#defin|e CDR(lp|
|00002840| 74 72 29 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |tr)     |        |
|00002850| 20 20 28 28 6c 70 74 72 | 29 20 2b 20 31 29 0d 23 |  ((lptr|) + 1).#|
|00002860| 64 65 66 69 6e 65 20 47 | 45 54 5f 43 41 52 28 6c |define G|ET_CAR(l|
|00002870| 6f 63 29 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |oc)     |       (|
|00002880| 28 6c 6f 63 29 2d 3e 76 | 61 6c 2e 66 6f 72 6d 29 |(loc)->v|al.form)|
|00002890| 0d 23 64 65 66 69 6e 65 | 20 47 45 54 5f 43 44 52 |.#define| GET_CDR|
|000028a0| 28 6c 6f 63 29 20 20 20 | 20 20 20 20 20 20 20 20 |(loc)   |        |
|000028b0| 20 28 28 6c 6f 63 29 2d | 3e 76 61 6c 2e 66 6f 72 | ((loc)-|>val.for|
|000028c0| 6d 20 2b 20 31 29 0d 0d | 2f 2a 20 53 79 6d 62 6f |m + 1)..|/* Symbo|
|000028d0| 6c 20 2a 2f 0d 23 64 65 | 66 69 6e 65 20 47 45 54 |l */.#de|fine GET|
|000028e0| 5f 53 59 4d 42 4f 4c 28 | 6c 6f 63 29 20 20 20 20 |_SYMBOL(|loc)    |
|000028f0| 20 20 20 20 20 28 28 6c | 6f 63 29 2d 3e 76 61 6c |     ((l|oc)->val|
|00002900| 2e 73 79 6d 62 6f 6c 29 | 0d 0d 2f 2a 20 46 75 6e |.symbol)|../* Fun|
|00002910| 6b 74 69 6f 6e 65 6e 20 | 2a 2f 0d 23 64 65 66 69 |ktionen |*/.#defi|
|00002920| 6e 65 20 47 45 54 5f 46 | 55 4e 28 6c 6f 63 29 20 |ne GET_F|UN(loc) |
|00002930| 20 20 20 20 20 20 20 20 | 20 20 20 28 28 6c 6f 63 |        |   ((loc|
|00002940| 29 2d 3e 76 61 6c 2e 66 | 75 6e 29 0d 23 64 65 66 |)->val.f|un).#def|
|00002950| 69 6e 65 20 47 45 54 5f | 44 46 41 52 47 28 6c 6f |ine GET_|DFARG(lo|
|00002960| 63 29 20 20 20 20 20 20 | 20 20 20 20 28 28 6c 6f |c)      |    ((lo|
|00002970| 63 29 2d 3e 76 61 6c 2e | 64 66 61 72 67 29 0d 23 |c)->val.|dfarg).#|
|00002980| 64 65 66 69 6e 65 20 47 | 45 54 5f 47 46 41 52 47 |define G|ET_GFARG|
|00002990| 28 6c 6f 63 29 20 20 20 | 20 20 20 20 20 20 20 28 |(loc)   |       (|
|000029a0| 28 6c 6f 63 29 2d 3e 76 | 61 6c 2e 67 66 61 72 67 |(loc)->v|al.gfarg|
|000029b0| 29 0d 0d 23 64 65 66 69 | 6e 65 20 49 4e 44 49 52 |)..#defi|ne INDIR|
|000029c0| 45 43 54 28 6c 6f 63 29 | 20 20 20 20 20 20 20 20 |ECT(loc)|        |
|000029d0| 20 20 20 28 28 6c 6f 63 | 29 2d 3e 76 61 6c 2e 66 |   ((loc|)->val.f|
|000029e0| 6f 72 6d 29 0d 23 64 65 | 66 69 6e 65 20 47 45 54 |orm).#de|fine GET|
|000029f0| 5f 43 46 49 4c 45 28 6c | 6f 63 29 20 20 20 20 20 |_CFILE(l|oc)     |
|00002a00| 20 20 20 20 20 28 28 6c | 6f 63 29 2d 3e 76 61 6c |     ((l|oc)->val|
|00002a10| 2e 63 66 69 6c 65 29 0d | 0d 2f 2a 20 46 6f 72 65 |.cfile).|./* Fore|
|00002a20| 69 67 6e 20 46 75 63 74 | 69 6f 6e 73 20 2a 2f 0d |ign Fuct|ions */.|
|00002a30| 23 64 65 66 69 6e 65 20 | 47 45 54 5f 43 5f 43 48 |#define |GET_C_CH|
|00002a40| 41 52 28 6c 6f 63 29 20 | 20 20 20 20 20 20 20 20 |AR(loc) |        |
|00002a50| 20 20 20 20 20 20 28 63 | 68 61 72 29 28 28 6c 6f |      (c|har)((lo|
|00002a60| 63 29 2d 3e 76 61 6c 2e | 63 68 29 0d 23 64 65 66 |c)->val.|ch).#def|
|00002a70| 69 6e 65 20 47 45 54 5f | 43 5f 53 48 4f 52 54 28 |ine GET_|C_SHORT(|
|00002a80| 6c 6f 63 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |loc)    |        |
|00002a90| 20 20 28 73 68 6f 72 74 | 29 28 28 6c 6f 63 29 2d |  (short|)((loc)-|
|00002aa0| 3e 76 61 6c 2e 69 29 0d | 23 64 65 66 69 6e 65 20 |>val.i).|#define |
|00002ab0| 47 45 54 5f 43 5f 49 4e | 54 28 6c 6f 63 29 20 20 |GET_C_IN|T(loc)  |
|00002ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 69 |        |      (i|
|00002ad0| 6e 74 29 28 28 6c 6f 63 | 29 2d 3e 76 61 6c 2e 69 |nt)((loc|)->val.i|
|00002ae0| 29 0d 23 64 65 66 69 6e | 65 20 47 45 54 5f 43 5f |).#defin|e GET_C_|
|00002af0| 4c 4f 4e 47 28 6c 6f 63 | 29 20 20 20 20 20 20 20 |LONG(loc|)       |
|00002b00| 20 20 20 20 20 20 20 20 | 28 6c 6f 6e 67 29 28 28 |        |(long)((|
|00002b10| 6c 6f 63 29 2d 3e 76 61 | 6c 2e 69 29 0d 23 64 65 |loc)->va|l.i).#de|
|00002b20| 66 69 6e 65 20 47 45 54 | 5f 43 5f 55 4e 53 49 47 |fine GET|_C_UNSIG|
|00002b30| 4e 45 44 5f 43 48 41 52 | 28 6c 6f 63 29 20 20 20 |NED_CHAR|(loc)   |
|00002b40| 20 20 20 28 75 6e 73 69 | 67 6e 65 64 20 63 68 61 |   (unsi|gned cha|
|00002b50| 72 29 28 28 6c 6f 63 29 | 2d 3e 76 61 6c 2e 63 68 |r)((loc)|->val.ch|
|00002b60| 29 0d 23 64 65 66 69 6e | 65 20 47 45 54 5f 43 5f |).#defin|e GET_C_|
|00002b70| 55 4e 53 49 47 4e 45 44 | 5f 53 48 4f 52 54 28 6c |UNSIGNED|_SHORT(l|
|00002b80| 6f 63 29 20 20 20 20 20 | 28 75 6e 73 69 67 6e 65 |oc)     |(unsigne|
|00002b90| 64 20 73 68 6f 72 74 29 | 28 28 6c 6f 63 29 2d 3e |d short)|((loc)->|
|00002ba0| 76 61 6c 2e 69 29 0d 23 | 64 65 66 69 6e 65 20 47 |val.i).#|define G|
|00002bb0| 45 54 5f 43 5f 55 4e 53 | 49 47 4e 45 44 5f 49 4e |ET_C_UNS|IGNED_IN|
|00002bc0| 54 28 6c 6f 63 29 20 20 | 20 20 20 20 20 28 75 6e |T(loc)  |     (un|
|00002bd0| 73 69 67 6e 65 64 20 69 | 6e 74 29 28 28 6c 6f 63 |signed i|nt)((loc|
|00002be0| 29 2d 3e 76 61 6c 2e 69 | 29 0d 23 64 65 66 69 6e |)->val.i|).#defin|
|00002bf0| 65 20 47 45 54 5f 43 5f | 55 4e 53 49 47 4e 45 44 |e GET_C_|UNSIGNED|
|00002c00| 5f 4c 4f 4e 47 28 6c 6f | 63 29 20 20 20 20 20 20 |_LONG(lo|c)      |
|00002c10| 28 75 6e 73 69 67 6e 65 | 64 20 6c 6f 6e 67 29 28 |(unsigne|d long)(|
|00002c20| 28 6c 6f 63 29 2d 3e 76 | 61 6c 2e 69 29 0d 0d 23 |(loc)->v|al.i)..#|
|00002c30| 64 65 66 69 6e 65 20 47 | 45 54 5f 43 5f 43 48 41 |define G|ET_C_CHA|
|00002c40| 52 5f 50 54 52 28 6c 6f | 63 29 20 20 20 20 20 20 |R_PTR(lo|c)      |
|00002c50| 20 20 20 20 20 28 63 68 | 61 72 20 2a 29 28 28 6c |     (ch|ar *)((l|
|00002c60| 6f 63 29 2d 3e 76 61 6c | 2e 63 68 5f 70 74 72 29 |oc)->val|.ch_ptr)|
|00002c70| 0d 23 64 65 66 69 6e 65 | 20 47 45 54 5f 43 5f 53 |.#define| GET_C_S|
|00002c80| 48 4f 52 54 5f 50 54 52 | 28 6c 6f 63 29 20 20 20 |HORT_PTR|(loc)   |
|00002c90| 20 20 20 20 20 20 20 28 | 73 68 6f 72 74 20 2a 29 |       (|short *)|
|00002ca0| 28 28 6c 6f 63 29 2d 3e | 76 61 6c 2e 63 68 5f 70 |((loc)->|val.ch_p|
|00002cb0| 74 72 29 0d 23 64 65 66 | 69 6e 65 20 47 45 54 5f |tr).#def|ine GET_|
|00002cc0| 43 5f 49 4e 54 5f 50 54 | 52 28 6c 6f 63 29 20 20 |C_INT_PT|R(loc)  |
|00002cd0| 20 20 20 20 20 20 20 20 | 20 20 28 69 6e 74 20 2a |        |  (int *|
|00002ce0| 29 28 28 6c 6f 63 29 2d | 3e 76 61 6c 2e 63 68 5f |)((loc)-|>val.ch_|
|00002cf0| 70 74 72 29 0d 23 64 65 | 66 69 6e 65 20 47 45 54 |ptr).#de|fine GET|
|00002d00| 5f 43 5f 4c 4f 4e 47 5f | 50 54 52 28 6c 6f 63 29 |_C_LONG_|PTR(loc)|
|00002d10| 20 20 20 20 20 20 20 20 | 20 20 20 28 6c 6f 6e 67 |        |   (long|
|00002d20| 20 2a 29 28 28 6c 6f 63 | 29 2d 3e 76 61 6c 2e 63 | *)((loc|)->val.c|
|00002d30| 68 5f 70 74 72 29 0d 23 | 64 65 66 69 6e 65 20 47 |h_ptr).#|define G|
|00002d40| 45 54 5f 43 5f 55 4e 53 | 49 47 4e 45 44 5f 43 48 |ET_C_UNS|IGNED_CH|
|00002d50| 41 52 5f 50 54 52 28 6c | 6f 63 29 20 20 28 75 6e |AR_PTR(l|oc)  (un|
|00002d60| 73 69 67 6e 65 64 20 63 | 68 61 72 20 2a 29 28 28 |signed c|har *)((|
|00002d70| 6c 6f 63 29 2d 3e 76 61 | 6c 2e 63 68 5f 70 74 72 |loc)->va|l.ch_ptr|
|00002d80| 29 0d 23 64 65 66 69 6e | 65 20 47 45 54 5f 43 5f |).#defin|e GET_C_|
|00002d90| 55 4e 53 49 47 4e 45 44 | 5f 53 48 4f 52 54 5f 50 |UNSIGNED|_SHORT_P|
|00002da0| 54 52 28 6c 6f 63 29 20 | 28 75 6e 73 69 67 6e 65 |TR(loc) |(unsigne|
|00002db0| 64 20 73 68 6f 72 74 20 | 2a 29 28 28 6c 6f 63 29 |d short |*)((loc)|
|00002dc0| 2d 3e 76 61 6c 2e 63 68 | 5f 70 74 72 29 0d 23 64 |->val.ch|_ptr).#d|
|00002dd0| 65 66 69 6e 65 20 47 45 | 54 5f 43 5f 55 4e 53 49 |efine GE|T_C_UNSI|
|00002de0| 47 4e 45 44 5f 49 4e 54 | 5f 50 54 52 28 6c 6f 63 |GNED_INT|_PTR(loc|
|00002df0| 29 20 20 20 28 75 6e 73 | 69 67 6e 65 64 20 69 6e |)   (uns|igned in|
|00002e00| 74 20 2a 29 28 28 6c 6f | 63 29 2d 3e 76 61 6c 2e |t *)((lo|c)->val.|
|00002e10| 63 68 5f 70 74 72 29 0d | 23 64 65 66 69 6e 65 20 |ch_ptr).|#define |
|00002e20| 47 45 54 5f 43 5f 55 4e | 53 49 47 4e 45 44 5f 4c |GET_C_UN|SIGNED_L|
|00002e30| 4f 4e 47 5f 50 54 52 28 | 6c 6f 63 29 20 20 28 75 |ONG_PTR(|loc)  (u|
|00002e40| 6e 73 69 67 6e 65 64 20 | 6c 6f 6e 67 20 2a 29 28 |nsigned |long *)(|
|00002e50| 28 6c 6f 63 29 2d 3e 76 | 61 6c 2e 63 68 5f 70 74 |(loc)->v|al.ch_pt|
|00002e60| 72 29 0d 0d 23 64 65 66 | 69 6e 65 20 47 45 54 5f |r)..#def|ine GET_|
|00002e70| 43 5f 53 54 52 49 4e 47 | 28 6c 6f 63 29 20 20 20 |C_STRING|(loc)   |
|00002e80| 20 20 20 20 20 20 20 20 | 20 20 28 63 68 61 72 20 |        |  (char |
|00002e90| 2a 29 28 28 6c 6f 63 29 | 2d 3e 76 61 6c 2e 63 68 |*)((loc)|->val.ch|
|00002ea0| 5f 70 74 72 29 0d 0d 23 | 64 65 66 69 6e 65 20 47 |_ptr)..#|define G|
|00002eb0| 45 54 5f 43 5f 53 54 52 | 55 43 54 28 6c 6f 63 29 |ET_C_STR|UCT(loc)|
|00002ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 28 6c |        |     ((l|
|00002ed0| 6f 63 29 2d 3e 76 61 6c | 2e 63 68 5f 70 74 72 29 |oc)->val|.ch_ptr)|
|00002ee0| 0d 23 64 65 66 69 6e 65 | 20 47 45 54 5f 43 5f 53 |.#define| GET_C_S|
|00002ef0| 54 52 55 43 54 5f 50 54 | 52 28 6c 6f 63 29 20 20 |TRUCT_PT|R(loc)  |
|00002f00| 20 20 20 20 20 20 20 28 | 28 6c 6f 63 29 2d 3e 76 |       (|(loc)->v|
|00002f10| 61 6c 2e 63 68 5f 70 74 | 72 29 0d 0d 23 64 65 66 |al.ch_pt|r)..#def|
|00002f20| 69 6e 65 20 47 45 54 5f | 43 5f 53 54 52 55 43 54 |ine GET_|C_STRUCT|
|00002f30| 5f 50 54 52 5f 56 41 4c | 55 45 28 6c 6f 63 29 20 |_PTR_VAL|UE(loc) |
|00002f40| 20 20 47 45 54 5f 43 48 | 41 52 5f 50 54 52 28 4f |  GET_CH|AR_PTR(O|
|00002f50| 46 46 53 45 54 28 47 45 | 54 5f 46 4f 52 4d 28 6c |FFSET(GE|T_FORM(l|
|00002f60| 6f 63 29 2c 20 32 29 29 | 0d 0d 0d 0d 2f 2a 2d 2d |oc), 2))|..../*--|
|00002f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 20 2a 20 |--------|----. * |
|00002fc0| 50 72 e4 64 69 6b 61 74 | 65 20 7a 75 6d 20 54 65 |Pr.dikat|e zum Te|
|00002fd0| 73 74 65 6e 20 64 65 73 | 20 44 61 74 65 6e 74 79 |sten des| Datenty|
|00002fe0| 70 73 0d 20 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ps. *---|--------|
|00002ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003030| 2d 2a 2f 0d 23 64 65 66 | 69 6e 65 20 43 4c 5f 4e |-*/.#def|ine CL_N|
|00003040| 49 4c 50 28 6c 6f 63 29 | 20 20 20 20 20 20 20 28 |ILP(loc)|       (|
|00003050| 54 59 50 45 5f 4f 46 20 | 28 6c 6f 63 29 20 3d 3d |TYPE_OF |(loc) ==|
|00003060| 20 43 4c 5f 4e 49 4c 29 | 0d 23 64 65 66 69 6e 65 | CL_NIL)|.#define|
|00003070| 20 43 4c 5f 54 52 55 45 | 50 28 6c 6f 63 29 20 20 | CL_TRUE|P(loc)  |
|00003080| 20 20 20 20 28 54 59 50 | 45 5f 4f 46 20 28 6c 6f |    (TYP|E_OF (lo|
|00003090| 63 29 20 21 3d 20 43 4c | 5f 4e 49 4c 29 0d 23 64 |c) != CL|_NIL).#d|
|000030a0| 65 66 69 6e 65 20 43 4c | 5f 55 4e 42 4f 55 4e 44 |efine CL|_UNBOUND|
|000030b0| 50 28 6c 6f 63 29 20 20 | 20 28 54 59 50 45 5f 4f |P(loc)  | (TYPE_O|
|000030c0| 46 20 28 6c 6f 63 29 20 | 3d 3d 20 43 4c 5f 55 4e |F (loc) |== CL_UN|
|000030d0| 42 4f 55 4e 44 29 0d 0d | 23 64 65 66 69 6e 65 20 |BOUND)..|#define |
|000030e0| 43 4c 5f 46 49 58 4e 55 | 4d 50 28 6c 6f 63 29 20 |CL_FIXNU|MP(loc) |
|000030f0| 20 20 20 28 54 59 50 45 | 5f 4f 46 20 28 6c 6f 63 |   (TYPE|_OF (loc|
|00003100| 29 20 3d 3d 20 43 4c 5f | 46 49 58 4e 55 4d 29 0d |) == CL_|FIXNUM).|
|00003110| 23 64 65 66 69 6e 65 20 | 43 4c 5f 46 4c 4f 41 54 |#define |CL_FLOAT|
|00003120| 50 28 6c 6f 63 29 20 20 | 20 20 20 28 54 59 50 45 |P(loc)  |   (TYPE|
|00003130| 5f 4f 46 20 28 6c 6f 63 | 29 20 3d 3d 20 43 4c 5f |_OF (loc|) == CL_|
|00003140| 46 4c 4f 41 54 29 0d 23 | 64 65 66 69 6e 65 20 43 |FLOAT).#|define C|
|00003150| 4c 5f 43 48 41 52 50 28 | 6c 6f 63 29 20 20 20 20 |L_CHARP(|loc)    |
|00003160| 20 20 28 54 59 50 45 5f | 4f 46 20 28 6c 6f 63 29 |  (TYPE_|OF (loc)|
|00003170| 20 3d 3d 20 43 4c 5f 43 | 48 41 52 29 0d 23 64 65 | == CL_C|HAR).#de|
|00003180| 66 69 6e 65 20 43 4c 5f | 53 59 4d 42 4f 4c 50 28 |fine CL_|SYMBOLP(|
|00003190| 6c 6f 63 29 20 20 20 20 | 28 54 59 50 45 5f 4f 46 |loc)    |(TYPE_OF|
|000031a0| 20 28 6c 6f 63 29 20 3d | 3d 20 43 4c 5f 53 59 4d | (loc) =|= CL_SYM|
|000031b0| 42 4f 4c 29 0d 23 64 65 | 66 69 6e 65 20 43 4c 5f |BOL).#de|fine CL_|
|000031c0| 43 4f 4e 53 50 28 6c 6f | 63 29 20 20 20 20 20 20 |CONSP(lo|c)      |
|000031d0| 28 54 59 50 45 5f 4f 46 | 20 28 6c 6f 63 29 20 3d |(TYPE_OF| (loc) =|
|000031e0| 3d 20 43 4c 5f 43 4f 4e | 53 29 0d 23 64 65 66 69 |= CL_CON|S).#defi|
|000031f0| 6e 65 20 43 4c 5f 41 54 | 4f 4d 50 28 6c 6f 63 29 |ne CL_AT|OMP(loc)|
|00003200| 20 20 20 20 20 20 28 54 | 59 50 45 5f 4f 46 20 28 |      (T|YPE_OF (|
|00003210| 6c 6f 63 29 20 21 3d 20 | 43 4c 5f 43 4f 4e 53 29 |loc) != |CL_CONS)|
|00003220| 0d 23 64 65 66 69 6e 65 | 20 43 4c 5f 53 4d 53 54 |.#define| CL_SMST|
|00003230| 52 50 28 6c 6f 63 29 20 | 20 20 20 20 28 54 59 50 |RP(loc) |    (TYP|
|00003240| 45 5f 4f 46 20 28 6c 6f | 63 29 20 3d 3d 20 43 4c |E_OF (lo|c) == CL|
|00003250| 5f 53 4d 53 54 52 29 0d | 23 64 65 66 69 6e 65 20 |_SMSTR).|#define |
|00003260| 43 4c 5f 53 54 52 49 4e | 47 50 28 6c 6f 63 29 20 |CL_STRIN|GP(loc) |
|00003270| 20 20 20 28 54 59 50 45 | 5f 4f 46 20 28 6c 6f 63 |   (TYPE|_OF (loc|
|00003280| 29 20 3d 3d 20 43 4c 5f | 53 54 52 49 4e 47 29 0d |) == CL_|STRING).|
|00003290| 23 64 65 66 69 6e 65 20 | 43 4c 5f 53 4d 56 45 43 |#define |CL_SMVEC|
|000032a0| 5f 54 5f 50 28 6c 6f 63 | 29 20 20 28 54 59 50 45 |_T_P(loc|)  (TYPE|
|000032b0| 5f 4f 46 20 28 6c 6f 63 | 29 20 3d 3d 20 43 4c 5f |_OF (loc|) == CL_|
|000032c0| 53 4d 56 45 43 5f 54 29 | 0d 23 64 65 66 69 6e 65 |SMVEC_T)|.#define|
|000032d0| 20 43 4c 5f 56 45 43 5f | 54 5f 50 28 6c 6f 63 29 | CL_VEC_|T_P(loc)|
|000032e0| 20 20 20 20 28 54 59 50 | 45 5f 4f 46 20 28 6c 6f |    (TYP|E_OF (lo|
|000032f0| 63 29 20 3d 3d 20 43 4c | 5f 56 45 43 5f 54 29 0d |c) == CL|_VEC_T).|
|00003300| 23 64 65 66 69 6e 65 20 | 43 4c 5f 43 4c 4f 53 55 |#define |CL_CLOSU|
|00003310| 52 45 50 28 6c 6f 63 29 | 20 20 20 28 54 59 50 45 |REP(loc)|   (TYPE|
|00003320| 5f 4f 46 20 28 6c 6f 63 | 29 20 3d 3d 20 43 4c 5f |_OF (loc|) == CL_|
|00003330| 43 4c 4f 53 55 52 45 29 | 0d 23 64 65 66 69 6e 65 |CLOSURE)|.#define|
|00003340| 20 43 4c 5f 47 4c 4f 42 | 46 55 4e 50 28 6c 6f 63 | CL_GLOB|FUNP(loc|
|00003350| 29 20 20 20 28 54 59 50 | 45 5f 4f 46 20 28 6c 6f |)   (TYP|E_OF (lo|
|00003360| 63 29 20 3d 3d 20 43 4c | 5f 47 4c 4f 42 46 55 4e |c) == CL|_GLOBFUN|
|00003370| 29 0d 23 64 65 66 69 6e | 65 20 43 4c 5f 44 4f 57 |).#defin|e CL_DOW|
|00003380| 4e 46 55 4e 50 28 6c 6f | 63 29 20 20 20 28 54 59 |NFUNP(lo|c)   (TY|
|00003390| 50 45 5f 4f 46 20 28 6c | 6f 63 29 20 3d 3d 20 43 |PE_OF (l|oc) == C|
|000033a0| 4c 5f 44 4f 57 4e 46 55 | 4e 29 0d 23 64 65 66 69 |L_DOWNFU|N).#defi|
|000033b0| 6e 65 20 43 4c 5f 49 4e | 53 54 41 4e 43 45 50 28 |ne CL_IN|STANCEP(|
|000033c0| 6c 6f 63 29 20 20 28 54 | 59 50 45 5f 4f 46 20 28 |loc)  (T|YPE_OF (|
|000033d0| 6c 6f 63 29 20 3d 3d 20 | 43 4c 5f 49 4e 53 54 41 |loc) == |CL_INSTA|
|000033e0| 4e 43 45 29 0d 23 64 65 | 66 69 6e 65 20 43 4c 5f |NCE).#de|fine CL_|
|000033f0| 53 54 52 55 43 54 50 28 | 6c 6f 63 29 20 20 20 20 |STRUCTP(|loc)    |
|00003400| 28 54 59 50 45 5f 4f 46 | 20 28 6c 6f 63 29 20 3d |(TYPE_OF| (loc) =|
|00003410| 3d 20 43 4c 5f 53 54 52 | 55 43 54 29 0d 0d 23 64 |= CL_STR|UCT)..#d|
|00003420| 65 66 69 6e 65 20 43 4c | 5f 43 5f 53 54 52 55 43 |efine CL|_C_STRUC|
|00003430| 54 5f 50 28 6c 6f 63 29 | 20 28 54 59 50 45 5f 4f |T_P(loc)| (TYPE_O|
|00003440| 46 20 28 6c 6f 63 29 20 | 3d 3d 20 43 4c 5f 43 5f |F (loc) |== CL_C_|
|00003450| 53 54 52 55 43 54 29 0d | 23 64 65 66 69 6e 65 20 |STRUCT).|#define |
|00003460| 43 4c 5f 43 5f 43 48 41 | 52 5f 50 28 6c 6f 63 29 |CL_C_CHA|R_P(loc)|
|00003470| 20 20 20 20 20 20 20 20 | 20 20 20 28 54 59 50 45 |        |   (TYPE|
|00003480| 5f 4f 46 20 28 6c 6f 63 | 29 20 3d 3d 20 43 4c 5f |_OF (loc|) == CL_|
|00003490| 43 5f 43 48 41 52 29 0d | 23 64 65 66 69 6e 65 20 |C_CHAR).|#define |
|000034a0| 43 4c 5f 43 5f 53 48 4f | 52 54 5f 50 28 6c 6f 63 |CL_C_SHO|RT_P(loc|
|000034b0| 29 20 20 20 20 20 20 20 | 20 20 20 28 54 59 50 45 |)       |   (TYPE|
|000034c0| 5f 4f 46 20 28 6c 6f 63 | 29 20 3d 3d 20 43 4c 5f |_OF (loc|) == CL_|
|000034d0| 43 5f 53 48 4f 52 54 20 | 7c 7c 5c 0d 20 20 20 20 |C_SHORT |||\.    |
|000034e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000034f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003500| 54 59 50 45 5f 4f 46 20 | 28 6c 6f 63 29 20 3d 3d |TYPE_OF |(loc) ==|
|00003510| 20 43 4c 5f 43 5f 43 48 | 41 52 29 0d 23 64 65 66 | CL_C_CH|AR).#def|
|00003520| 69 6e 65 20 43 4c 5f 43 | 5f 49 4e 54 5f 50 28 6c |ine CL_C|_INT_P(l|
|00003530| 6f 63 29 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |oc)     |       (|
|00003540| 54 59 50 45 5f 4f 46 20 | 28 6c 6f 63 29 20 3d 3d |TYPE_OF |(loc) ==|
|00003550| 20 43 4c 5f 43 5f 49 4e | 54 20 7c 7c 5c 0d 20 20 | CL_C_IN|T ||\.  |
|00003560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003580| 20 20 54 59 50 45 5f 4f | 46 20 28 6c 6f 63 29 20 |  TYPE_O|F (loc) |
|00003590| 3d 3d 20 43 4c 5f 43 5f | 53 48 4f 52 54 20 7c 7c |== CL_C_|SHORT |||
|000035a0| 5c 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |\.      |        |
|000035b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000035c0| 20 20 20 20 20 20 54 59 | 50 45 5f 4f 46 20 28 6c |      TY|PE_OF (l|
|000035d0| 6f 63 29 20 3d 3d 20 43 | 4c 5f 43 5f 43 48 41 52 |oc) == C|L_C_CHAR|
|000035e0| 29 0d 23 64 65 66 69 6e | 65 20 43 4c 5f 43 5f 4c |).#defin|e CL_C_L|
|000035f0| 4f 4e 47 5f 50 28 6c 6f | 63 29 20 20 20 20 20 20 |ONG_P(lo|c)      |
|00003600| 20 20 20 20 20 28 54 59 | 50 45 5f 4f 46 20 28 6c |     (TY|PE_OF (l|
|00003610| 6f 63 29 20 3d 3d 20 43 | 4c 5f 43 5f 4c 4f 4e 47 |oc) == C|L_C_LONG|
|00003620| 20 7c 7c 5c 0d 20 20 20 | 20 20 20 20 20 20 20 20 | ||\.   |        |
|00003630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003640| 20 20 20 20 20 20 20 20 | 20 54 59 50 45 5f 4f 46 |        | TYPE_OF|
|00003650| 20 28 6c 6f 63 29 20 3d | 3d 20 43 4c 5f 43 5f 49 | (loc) =|= CL_C_I|
|00003660| 4e 54 20 7c 7c 5c 0d 20 | 20 20 20 20 20 20 20 20 |NT ||\. |        |
|00003670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003680| 20 20 20 20 20 20 20 20 | 20 20 20 54 59 50 45 5f |        |   TYPE_|
|00003690| 4f 46 20 28 6c 6f 63 29 | 20 3d 3d 20 43 4c 5f 43 |OF (loc)| == CL_C|
|000036a0| 5f 53 48 4f 52 54 20 7c | 7c 5c 0d 20 20 20 20 20 |_SHORT |||\.     |
|000036b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000036c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 54 |        |       T|
|000036d0| 59 50 45 5f 4f 46 20 28 | 6c 6f 63 29 20 3d 3d 20 |YPE_OF (|loc) == |
|000036e0| 43 4c 5f 43 5f 43 48 41 | 52 29 0d 23 64 65 66 69 |CL_C_CHA|R).#defi|
|000036f0| 6e 65 20 43 4c 5f 43 5f | 55 4e 53 49 47 4e 45 44 |ne CL_C_|UNSIGNED|
|00003700| 5f 43 48 41 52 5f 50 28 | 6c 6f 63 29 20 20 28 54 |_CHAR_P(|loc)  (T|
|00003710| 59 50 45 5f 4f 46 20 28 | 6c 6f 63 29 20 3d 3d 20 |YPE_OF (|loc) == |
|00003720| 43 4c 5f 43 5f 55 4e 53 | 49 47 4e 45 44 5f 43 48 |CL_C_UNS|IGNED_CH|
|00003730| 41 52 29 0d 23 64 65 66 | 69 6e 65 20 43 4c 5f 43 |AR).#def|ine CL_C|
|00003740| 5f 55 4e 53 49 47 4e 45 | 44 5f 53 48 4f 52 54 5f |_UNSIGNE|D_SHORT_|
|00003750| 50 28 6c 6f 63 29 20 28 | 54 59 50 45 5f 4f 46 20 |P(loc) (|TYPE_OF |
|00003760| 28 6c 6f 63 29 20 3d 3d | 20 43 4c 5f 43 5f 55 4e |(loc) ==| CL_C_UN|
|00003770| 53 49 47 4e 45 44 5f 53 | 48 4f 52 54 20 7c 7c 5c |SIGNED_S|HORT ||\|
|00003780| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00003790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000037a0| 20 20 20 20 20 54 59 50 | 45 5f 4f 46 20 28 6c 6f |     TYP|E_OF (lo|
|000037b0| 63 29 20 3d 3d 20 43 4c | 5f 43 5f 55 4e 53 49 47 |c) == CL|_C_UNSIG|
|000037c0| 4e 45 44 5f 43 48 41 52 | 29 0d 23 64 65 66 69 6e |NED_CHAR|).#defin|
|000037d0| 65 20 43 4c 5f 43 5f 55 | 4e 53 49 47 4e 45 44 5f |e CL_C_U|NSIGNED_|
|000037e0| 49 4e 54 5f 50 28 6c 6f | 63 29 20 20 20 28 54 59 |INT_P(lo|c)   (TY|
|000037f0| 50 45 5f 4f 46 20 28 6c | 6f 63 29 20 3d 3d 20 43 |PE_OF (l|oc) == C|
|00003800| 4c 5f 43 5f 55 4e 53 49 | 47 4e 45 44 5f 49 4e 54 |L_C_UNSI|GNED_INT|
|00003810| 20 7c 7c 5c 0d 20 20 20 | 20 20 20 20 20 20 20 20 | ||\.   |        |
|00003820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003830| 20 20 20 20 20 20 20 20 | 20 54 59 50 45 5f 4f 46 |        | TYPE_OF|
|00003840| 20 28 6c 6f 63 29 20 3d | 3d 20 43 4c 5f 43 5f 55 | (loc) =|= CL_C_U|
|00003850| 4e 53 49 47 4e 45 44 5f | 53 48 4f 52 54 20 7c 7c |NSIGNED_|SHORT |||
|00003860| 5c 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |\.      |        |
|00003870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003880| 20 20 20 20 20 20 54 59 | 50 45 5f 4f 46 20 28 6c |      TY|PE_OF (l|
|00003890| 6f 63 29 20 3d 3d 20 43 | 4c 5f 43 5f 55 4e 53 49 |oc) == C|L_C_UNSI|
|000038a0| 47 4e 45 44 5f 43 48 41 | 52 29 0d 23 64 65 66 69 |GNED_CHA|R).#defi|
|000038b0| 6e 65 20 43 4c 5f 43 5f | 55 4e 53 49 47 4e 45 44 |ne CL_C_|UNSIGNED|
|000038c0| 5f 4c 4f 4e 47 5f 50 28 | 6c 6f 63 29 20 20 28 54 |_LONG_P(|loc)  (T|
|000038d0| 59 50 45 5f 4f 46 20 28 | 6c 6f 63 29 20 3d 3d 20 |YPE_OF (|loc) == |
|000038e0| 43 4c 5f 43 5f 55 4e 53 | 49 47 4e 45 44 5f 4c 4f |CL_C_UNS|IGNED_LO|
|000038f0| 4e 47 20 7c 7c 5c 0d 20 | 20 20 20 20 20 20 20 20 |NG ||\. |        |
|00003900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003910| 20 20 20 20 20 20 20 20 | 20 20 20 54 59 50 45 5f |        |   TYPE_|
|00003920| 4f 46 20 28 6c 6f 63 29 | 20 3d 3d 20 43 4c 5f 43 |OF (loc)| == CL_C|
|00003930| 5f 55 4e 53 49 47 4e 45 | 44 5f 49 4e 54 20 7c 7c |_UNSIGNE|D_INT |||
|00003940| 5c 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |\.      |        |
|00003950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003960| 20 20 20 20 20 20 54 59 | 50 45 5f 4f 46 20 28 6c |      TY|PE_OF (l|
|00003970| 6f 63 29 20 3d 3d 20 43 | 4c 5f 43 5f 55 4e 53 49 |oc) == C|L_C_UNSI|
|00003980| 47 4e 45 44 5f 53 48 4f | 52 54 20 7c 7c 5c 0d 20 |GNED_SHO|RT ||\. |
|00003990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000039a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000039b0| 20 20 20 54 59 50 45 5f | 4f 46 20 28 6c 6f 63 29 |   TYPE_|OF (loc)|
|000039c0| 20 3d 3d 20 43 4c 5f 43 | 5f 55 4e 53 49 47 4e 45 | == CL_C|_UNSIGNE|
|000039d0| 44 5f 43 48 41 52 29 0d | 23 64 65 66 69 6e 65 20 |D_CHAR).|#define |
|000039e0| 43 4c 5f 43 5f 43 48 41 | 52 5f 50 54 52 5f 50 28 |CL_C_CHA|R_PTR_P(|
|000039f0| 6c 6f 63 29 20 20 20 20 | 20 20 20 28 54 59 50 45 |loc)    |   (TYPE|
|00003a00| 5f 4f 46 20 28 6c 6f 63 | 29 20 3d 3d 20 43 4c 5f |_OF (loc|) == CL_|
|00003a10| 43 5f 43 48 41 52 5f 50 | 54 52 29 0d 23 64 65 66 |C_CHAR_P|TR).#def|
|00003a20| 69 6e 65 20 43 4c 5f 43 | 5f 53 48 4f 52 54 5f 50 |ine CL_C|_SHORT_P|
|00003a30| 54 52 5f 50 28 6c 6f 63 | 29 20 20 20 20 20 20 28 |TR_P(loc|)      (|
|00003a40| 54 59 50 45 5f 4f 46 20 | 28 6c 6f 63 29 20 3d 3d |TYPE_OF |(loc) ==|
|00003a50| 20 43 4c 5f 43 5f 53 48 | 4f 52 54 5f 50 54 52 29 | CL_C_SH|ORT_PTR)|
|00003a60| 0d 23 64 65 66 69 6e 65 | 20 43 4c 5f 43 5f 49 4e |.#define| CL_C_IN|
|00003a70| 54 5f 50 54 52 5f 50 28 | 6c 6f 63 29 20 20 20 20 |T_PTR_P(|loc)    |
|00003a80| 20 20 20 20 28 54 59 50 | 45 5f 4f 46 20 28 6c 6f |    (TYP|E_OF (lo|
|00003a90| 63 29 20 3d 3d 20 43 4c | 5f 43 5f 49 4e 54 5f 50 |c) == CL|_C_INT_P|
|00003aa0| 54 52 29 0d 23 64 65 66 | 69 6e 65 20 43 4c 5f 43 |TR).#def|ine CL_C|
|00003ab0| 5f 4c 4f 4e 47 5f 50 54 | 52 5f 50 28 6c 6f 63 29 |_LONG_PT|R_P(loc)|
|00003ac0| 20 20 20 20 20 20 20 28 | 54 59 50 45 5f 4f 46 20 |       (|TYPE_OF |
|00003ad0| 28 6c 6f 63 29 20 3d 3d | 20 43 4c 5f 43 5f 4c 4f |(loc) ==| CL_C_LO|
|00003ae0| 4e 47 5f 50 54 52 29 0d | 23 64 65 66 69 6e 65 20 |NG_PTR).|#define |
|00003af0| 43 4c 5f 43 5f 55 4e 53 | 49 47 4e 45 44 5f 43 48 |CL_C_UNS|IGNED_CH|
|00003b00| 41 52 5f 50 54 52 5f 50 | 28 6c 6f 63 29 20 20 28 |AR_PTR_P|(loc)  (|
|00003b10| 54 59 50 45 5f 4f 46 20 | 28 6c 6f 63 29 20 3d 3d |TYPE_OF |(loc) ==|
|00003b20| 20 43 4c 5f 43 5f 55 4e | 53 49 47 4e 45 44 5f 43 | CL_C_UN|SIGNED_C|
|00003b30| 48 41 52 5f 50 54 52 29 | 0d 23 64 65 66 69 6e 65 |HAR_PTR)|.#define|
|00003b40| 20 43 4c 5f 43 5f 55 4e | 53 49 47 4e 45 44 5f 53 | CL_C_UN|SIGNED_S|
|00003b50| 48 4f 52 54 5f 50 54 52 | 5f 50 28 6c 6f 63 29 20 |HORT_PTR|_P(loc) |
|00003b60| 28 54 59 50 45 5f 4f 46 | 20 28 6c 6f 63 29 20 3d |(TYPE_OF| (loc) =|
|00003b70| 3d 20 43 4c 5f 43 5f 55 | 4e 53 49 47 4e 45 44 5f |= CL_C_U|NSIGNED_|
|00003b80| 53 48 4f 52 54 5f 50 54 | 52 29 0d 23 64 65 66 69 |SHORT_PT|R).#defi|
|00003b90| 6e 65 20 43 4c 5f 43 5f | 55 4e 53 49 47 4e 45 44 |ne CL_C_|UNSIGNED|
|00003ba0| 5f 49 4e 54 5f 50 54 52 | 5f 50 28 6c 6f 63 29 20 |_INT_PTR|_P(loc) |
|00003bb0| 20 20 28 54 59 50 45 5f | 4f 46 20 28 6c 6f 63 29 |  (TYPE_|OF (loc)|
|00003bc0| 20 3d 3d 20 43 4c 5f 43 | 5f 55 4e 53 49 47 4e 45 | == CL_C|_UNSIGNE|
|00003bd0| 44 5f 49 4e 54 5f 50 54 | 52 29 0d 23 64 65 66 69 |D_INT_PT|R).#defi|
|00003be0| 6e 65 20 43 4c 5f 43 5f | 55 4e 53 49 47 4e 45 44 |ne CL_C_|UNSIGNED|
|00003bf0| 5f 4c 4f 4e 47 5f 50 54 | 52 5f 50 28 6c 6f 63 29 |_LONG_PT|R_P(loc)|
|00003c00| 20 20 28 54 59 50 45 5f | 4f 46 20 28 6c 6f 63 29 |  (TYPE_|OF (loc)|
|00003c10| 20 3d 3d 20 43 4c 5f 43 | 5f 55 4e 53 49 47 4e 45 | == CL_C|_UNSIGNE|
|00003c20| 44 5f 4c 4f 4e 47 5f 50 | 54 52 29 0d 0d 0d 23 64 |D_LONG_P|TR)...#d|
|00003c30| 65 66 69 6e 65 20 43 4c | 5f 4e 55 4d 42 45 52 50 |efine CL|_NUMBERP|
|00003c40| 28 6f 62 6a 29 20 20 20 | 20 20 20 20 28 43 4c 5f |(obj)   |    (CL_|
|00003c50| 46 49 58 4e 55 4d 50 28 | 6f 62 6a 29 20 7c 7c 20 |FIXNUMP(|obj) || |
|00003c60| 43 4c 5f 46 4c 4f 41 54 | 50 28 6f 62 6a 29 29 0d |CL_FLOAT|P(obj)).|
|00003c70| 23 64 65 66 69 6e 65 20 | 43 4c 5f 4c 49 53 54 50 |#define |CL_LISTP|
|00003c80| 28 6c 6f 63 29 20 20 20 | 20 20 20 20 20 20 28 43 |(loc)   |      (C|
|00003c90| 4c 5f 43 4f 4e 53 50 28 | 6c 6f 63 29 20 7c 7c 20 |L_CONSP(|loc) || |
|00003ca0| 43 4c 5f 4e 49 4c 50 28 | 6c 6f 63 29 29 0d 23 64 |CL_NILP(|loc)).#d|
|00003cb0| 65 66 69 6e 65 20 43 4c | 5f 53 54 52 49 4e 47 5f |efine CL|_STRING_|
|00003cc0| 50 28 6c 6f 63 29 20 20 | 20 20 20 20 28 43 4c 5f |P(loc)  |    (CL_|
|00003cd0| 53 4d 53 54 52 50 28 6c | 6f 63 29 20 7c 7c 20 43 |SMSTRP(l|oc) || C|
|00003ce0| 4c 5f 53 54 52 49 4e 47 | 50 28 6c 6f 63 29 29 0d |L_STRING|P(loc)).|
|00003cf0| 23 64 65 66 69 6e 65 20 | 43 4c 5f 46 55 4e 43 54 |#define |CL_FUNCT|
|00003d00| 49 4f 4e 5f 50 28 6c 6f | 63 29 20 20 20 20 28 43 |ION_P(lo|c)    (C|
|00003d10| 4c 5f 43 4c 4f 53 55 52 | 45 50 28 6c 6f 63 29 20 |L_CLOSUR|EP(loc) |
|00003d20| 7c 7c 20 43 4c 5f 44 4f | 57 4e 46 55 4e 50 28 6c ||| CL_DO|WNFUNP(l|
|00003d30| 6f 63 29 20 7c 7c 5c 0d | 20 20 20 20 20 20 20 20 |oc) ||\.|        |
|00003d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003d50| 20 20 20 20 20 20 20 43 | 4c 5f 47 4c 4f 42 46 55 |       C|L_GLOBFU|
|00003d60| 4e 50 28 6c 6f 63 29 29 | 0d 23 64 65 66 69 6e 65 |NP(loc))|.#define|
|00003d70| 20 43 4c 5f 56 45 43 54 | 4f 52 5f 50 28 6c 6f 63 | CL_VECT|OR_P(loc|
|00003d80| 29 20 20 20 20 20 20 56 | 45 43 54 4f 52 50 28 54 |)      V|ECTORP(T|
|00003d90| 59 50 45 5f 4f 46 28 6c | 6f 63 29 29 0d 23 64 65 |YPE_OF(l|oc)).#de|
|00003da0| 66 69 6e 65 20 43 4c 5f | 41 52 52 41 59 5f 50 28 |fine CL_|ARRAY_P(|
|00003db0| 6c 6f 63 29 20 20 20 20 | 20 20 20 41 52 52 41 59 |loc)    |   ARRAY|
|00003dc0| 50 28 54 59 50 45 5f 4f | 46 28 6c 6f 63 29 29 0d |P(TYPE_O|F(loc)).|
|00003dd0| 23 64 65 66 69 6e 65 20 | 43 4c 5f 53 4d 41 52 5f |#define |CL_SMAR_|
|00003de0| 50 28 6c 6f 63 29 20 20 | 20 20 20 20 20 20 53 4d |P(loc)  |      SM|
|00003df0| 41 52 50 28 54 59 50 45 | 5f 4f 46 28 6c 6f 63 29 |ARP(TYPE|_OF(loc)|
|00003e00| 29 0d 0d 2f 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |)../*---|--------|
|00003e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e50| 2d 2d 2d 0d 20 2a 20 57 | 65 69 74 65 72 65 20 54 |---. * W|eitere T|
|00003e60| 79 70 74 65 73 74 73 0d | 20 2a 2d 2d 2d 2d 2d 2d |yptests.| *------|
|00003e70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003eb0| 2d 2d 2d 2d 2d 2d 2a 2f | 0d 23 64 65 66 69 6e 65 |------*/|.#define|
|00003ec0| 20 56 45 43 54 4f 52 50 | 28 61 72 5f 74 79 70 65 | VECTORP|(ar_type|
|00003ed0| 29 20 20 20 20 20 28 43 | 4c 5f 56 45 43 5f 54 20 |)     (C|L_VEC_T |
|00003ee0| 3c 3d 20 28 61 72 5f 74 | 79 70 65 29 20 26 26 20 |<= (ar_t|ype) && |
|00003ef0| 28 61 72 5f 74 79 70 65 | 29 20 3c 3d 20 43 4c 5f |(ar_type|) <= CL_|
|00003f00| 53 4d 53 54 52 29 0d 23 | 64 65 66 69 6e 65 20 41 |SMSTR).#|define A|
|00003f10| 52 52 41 59 50 28 61 72 | 5f 74 79 70 65 29 20 20 |RRAYP(ar|_type)  |
|00003f20| 20 20 20 20 28 43 4c 5f | 56 45 43 5f 54 20 3c 3d |    (CL_|VEC_T <=|
|00003f30| 20 28 61 72 5f 74 79 70 | 65 29 20 26 26 20 28 61 | (ar_typ|e) && (a|
|00003f40| 72 5f 74 79 70 65 29 20 | 3c 3d 20 43 4c 5f 41 52 |r_type) |<= CL_AR|
|00003f50| 5f 43 48 41 52 29 0d 2f | 2a 20 56 45 43 54 4f 52 |_CHAR)./|* VECTOR|
|00003f60| 20 41 4e 44 20 4e 4f 54 | 20 53 49 4d 50 4c 45 20 | AND NOT| SIMPLE |
|00003f70| 2a 2f 0d 23 64 65 66 69 | 6e 65 20 56 45 43 54 4f |*/.#defi|ne VECTO|
|00003f80| 52 5f 4e 53 5f 50 28 61 | 72 5f 74 79 70 65 29 20 |R_NS_P(a|r_type) |
|00003f90| 28 43 4c 5f 56 45 43 5f | 54 20 3c 3d 20 28 61 72 |(CL_VEC_|T <= (ar|
|00003fa0| 5f 74 79 70 65 29 20 26 | 26 20 28 61 72 5f 74 79 |_type) &|& (ar_ty|
|00003fb0| 70 65 29 20 3c 3d 20 43 | 4c 5f 53 54 52 49 4e 47 |pe) <= C|L_STRING|
|00003fc0| 29 0d 23 64 65 66 69 6e | 65 20 53 4d 56 45 43 50 |).#defin|e SMVECP|
|00003fd0| 28 61 72 5f 74 79 70 65 | 29 20 20 20 20 20 20 28 |(ar_type|)      (|
|00003fe0| 43 4c 5f 53 4d 56 45 43 | 5f 54 20 3c 3d 20 28 61 |CL_SMVEC|_T <= (a|
|00003ff0| 72 5f 74 79 70 65 29 20 | 26 26 20 28 61 72 5f 74 |r_type) |&& (ar_t|
|00004000| 79 70 65 29 20 3c 3d 20 | 43 4c 5f 53 4d 53 54 52 |ype) <= |CL_SMSTR|
|00004010| 29 0d 23 64 65 66 69 6e | 65 20 53 4d 41 52 50 28 |).#defin|e SMARP(|
|00004020| 61 72 5f 74 79 70 65 29 | 20 20 20 20 20 20 20 28 |ar_type)|       (|
|00004030| 43 4c 5f 56 45 43 5f 54 | 20 3c 3d 20 28 61 72 5f |CL_VEC_T| <= (ar_|
|00004040| 74 79 70 65 29 20 26 26 | 20 28 61 72 5f 74 79 70 |type) &&| (ar_typ|
|00004050| 65 29 3c 3d 43 4c 5f 53 | 4d 41 52 5f 43 48 41 52 |e)<=CL_S|MAR_CHAR|
|00004060| 29 0d 0d 0d 2f 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |).../*--|--------|
|00004070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000040a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000040b0| 2d 2d 2d 2d 0d 20 2a 20 | 4d 61 6b 72 6f 73 20 7a |----. * |Makros z|
|000040c0| 75 6d 20 4c 61 64 65 6e | 20 64 65 72 20 4c 49 53 |um Laden| der LIS|
|000040d0| 50 2d 4f 62 6a 65 6b 74 | 65 0d 20 2a 2d 2d 2d 2d |P-Objekt|e. *----|
|000040e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000040f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004100| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004120| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 2f 0d 23 64 65 66 69 |--------|*/.#defi|
|00004130| 6e 65 20 4c 4f 41 44 5f | 4e 49 4c 28 6c 6f 63 29 |ne LOAD_|NIL(loc)|
|00004140| 20 20 20 20 20 20 20 20 | 20 20 28 53 45 54 5f 54 |        |  (SET_T|
|00004150| 41 47 28 6c 6f 63 2c 20 | 43 4c 5f 4e 49 4c 29 2c |AG(loc, |CL_NIL),|
|00004160| 47 45 54 5f 46 4f 52 4d | 28 6c 6f 63 29 20 3d 20 |GET_FORM|(loc) = |
|00004170| 4e 49 4c 5f 56 41 4c 55 | 45 29 0d 23 64 65 66 69 |NIL_VALU|E).#defi|
|00004180| 6e 65 20 4c 4f 41 44 5f | 54 28 6c 6f 63 29 20 20 |ne LOAD_|T(loc)  |
|00004190| 20 20 20 20 20 20 20 20 | 20 20 28 53 45 54 5f 54 |        |  (SET_T|
|000041a0| 41 47 28 6c 6f 63 2c 20 | 43 4c 5f 53 59 4d 42 4f |AG(loc, |CL_SYMBO|
|000041b0| 4c 29 2c 47 45 54 5f 46 | 4f 52 4d 28 6c 6f 63 29 |L),GET_F|ORM(loc)|
|000041c0| 20 3d 20 54 5f 56 41 4c | 55 45 29 0d 23 64 65 66 | = T_VAL|UE).#def|
|000041d0| 69 6e 65 20 4c 4f 41 44 | 5f 46 49 58 4e 55 4d 28 |ine LOAD|_FIXNUM(|
|000041e0| 6e 75 6d 2c 20 6c 6f 63 | 29 20 20 28 53 45 54 5f |num, loc|)  (SET_|
|000041f0| 54 41 47 28 6c 6f 63 2c | 20 43 4c 5f 46 49 58 4e |TAG(loc,| CL_FIXN|
|00004200| 55 4d 29 2c 47 45 54 5f | 46 49 58 4e 55 4d 28 6c |UM),GET_|FIXNUM(l|
|00004210| 6f 63 29 20 3d 20 28 6e | 75 6d 29 29 0d 23 64 65 |oc) = (n|um)).#de|
|00004220| 66 69 6e 65 20 4c 4f 41 | 44 5f 46 4c 4f 41 54 28 |fine LOA|D_FLOAT(|
|00004230| 66 6c 70 74 72 2c 20 6c | 6f 63 29 20 28 53 45 54 |flptr, l|oc) (SET|
|00004240| 5f 54 41 47 28 6c 6f 63 | 2c 20 43 4c 5f 46 4c 4f |_TAG(loc|, CL_FLO|
|00004250| 41 54 29 2c 28 6c 6f 63 | 29 2d 3e 76 61 6c 2e 66 |AT),(loc|)->val.f|
|00004260| 6c 3d 28 66 6c 70 74 72 | 29 29 0d 23 64 65 66 69 |l=(flptr|)).#defi|
|00004270| 6e 65 20 4c 4f 41 44 5f | 43 48 41 52 28 63 68 72 |ne LOAD_|CHAR(chr|
|00004280| 2c 20 6c 6f 63 29 20 20 | 20 20 28 53 45 54 5f 54 |, loc)  |  (SET_T|
|00004290| 41 47 28 6c 6f 63 2c 20 | 43 4c 5f 43 48 41 52 29 |AG(loc, |CL_CHAR)|
|000042a0| 2c 28 28 6c 6f 63 29 2d | 3e 76 61 6c 2e 63 68 3d |,((loc)-|>val.ch=|
|000042b0| 28 63 68 72 29 29 29 0d | 0d 23 64 65 66 69 6e 65 |(chr))).|.#define|
|000042c0| 20 4c 4f 41 44 5f 46 4f | 52 4d 5f 50 54 52 28 66 | LOAD_FO|RM_PTR(f|
|000042d0| 6f 72 6d 2c 20 6c 6f 63 | 29 20 20 20 28 53 45 54 |orm, loc|)   (SET|
|000042e0| 5f 54 41 47 20 28 6c 6f | 63 2c 20 52 54 5f 46 4f |_TAG (lo|c, RT_FO|
|000042f0| 52 4d 5f 50 54 52 29 2c | 5c 0d 20 20 20 20 20 20 |RM_PTR),|\.      |
|00004300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 47 45 |        |      GE|
|00004320| 54 5f 46 4f 52 4d 20 28 | 6c 6f 63 29 20 3d 20 28 |T_FORM (|loc) = (|
|00004330| 66 6f 72 6d 29 29 0d 23 | 64 65 66 69 6e 65 20 4c |form)).#|define L|
|00004340| 4f 41 44 5f 46 49 58 4e | 55 4d 5f 50 54 52 28 69 |OAD_FIXN|UM_PTR(i|
|00004350| 70 74 72 2c 20 6c 6f 63 | 29 20 28 53 45 54 5f 54 |ptr, loc|) (SET_T|
|00004360| 41 47 20 28 6c 6f 63 2c | 20 52 54 5f 46 49 58 4e |AG (loc,| RT_FIXN|
|00004370| 55 4d 5f 50 54 52 29 2c | 5c 0d 20 20 20 20 20 20 |UM_PTR),|\.      |
|00004380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 47 45 |        |      GE|
|000043a0| 54 5f 46 49 58 4e 55 4d | 5f 50 54 52 20 28 6c 6f |T_FIXNUM|_PTR (lo|
|000043b0| 63 29 20 3d 20 28 69 70 | 74 72 29 29 0d 23 64 65 |c) = (ip|tr)).#de|
|000043c0| 66 69 6e 65 20 4c 4f 41 | 44 5f 46 4c 4f 41 54 5f |fine LOA|D_FLOAT_|
|000043d0| 50 54 52 28 66 6c 70 74 | 72 2c 20 6c 6f 63 29 20 |PTR(flpt|r, loc) |
|000043e0| 28 53 45 54 5f 54 41 47 | 20 28 6c 6f 63 2c 20 52 |(SET_TAG| (loc, R|
|000043f0| 54 5f 46 4c 4f 41 54 5f | 50 54 52 29 2c 5c 0d 20 |T_FLOAT_|PTR),\. |
|00004400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004420| 20 20 20 47 45 54 5f 46 | 4c 4f 41 54 5f 50 54 52 |   GET_F|LOAT_PTR|
|00004430| 20 28 6c 6f 63 29 20 3d | 20 28 66 6c 70 74 72 29 | (loc) =| (flptr)|
|00004440| 29 0d 23 64 65 66 69 6e | 65 20 4c 4f 41 44 5f 43 |).#defin|e LOAD_C|
|00004450| 48 41 52 5f 50 54 52 28 | 63 68 70 74 72 2c 20 6c |HAR_PTR(|chptr, l|
|00004460| 6f 63 29 20 20 28 53 45 | 54 5f 54 41 47 20 28 6c |oc)  (SE|T_TAG (l|
|00004470| 6f 63 2c 20 52 54 5f 43 | 48 41 52 5f 50 54 52 29 |oc, RT_C|HAR_PTR)|
|00004480| 2c 5c 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,\.     |        |
|00004490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000044a0| 20 20 20 20 20 20 20 47 | 45 54 5f 43 48 41 52 5f |       G|ET_CHAR_|
|000044b0| 50 54 52 20 28 6c 6f 63 | 29 20 3d 20 28 63 68 70 |PTR (loc|) = (chp|
|000044c0| 74 72 29 29 0d 0d 23 64 | 65 66 69 6e 65 20 4c 4f |tr))..#d|efine LO|
|000044d0| 41 44 5f 43 4f 4e 53 28 | 63 61 72 2c 20 6c 6f 63 |AD_CONS(|car, loc|
|000044e0| 29 20 20 20 20 20 20 28 | 53 45 54 5f 54 41 47 28 |)      (|SET_TAG(|
|000044f0| 6c 6f 63 2c 20 43 4c 5f | 43 4f 4e 53 29 2c 47 45 |loc, CL_|CONS),GE|
|00004500| 54 5f 46 4f 52 4d 28 6c | 6f 63 29 20 3d 20 28 63 |T_FORM(l|oc) = (c|
|00004510| 61 72 29 29 0d 23 64 65 | 66 69 6e 65 20 4c 4f 41 |ar)).#de|fine LOA|
|00004520| 44 5f 53 59 4d 42 4f 4c | 28 73 79 6d 2c 20 6c 6f |D_SYMBOL|(sym, lo|
|00004530| 63 29 20 20 20 20 28 53 | 45 54 5f 54 41 47 28 6c |c)    (S|ET_TAG(l|
|00004540| 6f 63 2c 20 43 4c 5f 53 | 59 4d 42 4f 4c 29 2c 47 |oc, CL_S|YMBOL),G|
|00004550| 45 54 5f 46 4f 52 4d 28 | 6c 6f 63 29 20 3d 20 28 |ET_FORM(|loc) = (|
|00004560| 73 79 6d 29 29 0d 0d 23 | 64 65 66 69 6e 65 20 4c |sym))..#|define L|
|00004570| 4f 41 44 5f 43 4c 41 53 | 53 28 63 6c 61 73 73 2c |OAD_CLAS|S(class,|
|00004580| 20 6c 6f 63 29 20 28 53 | 45 54 5f 54 41 47 28 6c | loc) (S|ET_TAG(l|
|00004590| 6f 63 2c 20 43 4c 5f 49 | 4e 53 54 41 4e 43 45 29 |oc, CL_I|NSTANCE)|
|000045a0| 2c 5c 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,\.     |        |
|000045b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000045c0| 20 20 20 47 45 54 5f 46 | 4f 52 4d 28 6c 6f 63 29 |   GET_F|ORM(loc)|
|000045d0| 20 3d 20 28 63 6c 61 73 | 73 29 29 0d 0d 23 64 65 | = (clas|s))..#de|
|000045e0| 66 69 6e 65 20 4c 4f 41 | 44 5f 53 4d 53 54 52 28 |fine LOA|D_SMSTR(|
|000045f0| 73 74 72 70 74 72 2c 20 | 6c 6f 63 29 20 20 20 28 |strptr, |loc)   (|
|00004600| 53 45 54 5f 54 41 47 28 | 6c 6f 63 2c 20 43 4c 5f |SET_TAG(|loc, CL_|
|00004610| 53 4d 53 54 52 29 2c 5c | 0d 20 20 20 20 20 20 20 |SMSTR),\|.       |
|00004620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004630| 20 20 20 20 20 20 20 20 | 20 20 20 20 47 45 54 5f |        |    GET_|
|00004640| 46 4f 52 4d 28 6c 6f 63 | 29 20 3d 20 73 74 72 70 |FORM(loc|) = strp|
|00004650| 74 72 29 0d 23 64 65 66 | 69 6e 65 20 4c 4f 41 44 |tr).#def|ine LOAD|
|00004660| 5f 53 54 52 49 4e 47 28 | 73 74 72 70 74 72 2c 20 |_STRING(|strptr, |
|00004670| 6c 6f 63 29 20 20 28 53 | 45 54 5f 54 41 47 28 6c |loc)  (S|ET_TAG(l|
|00004680| 6f 63 2c 20 43 4c 5f 53 | 54 52 49 4e 47 29 2c 5c |oc, CL_S|TRING),\|
|00004690| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000046a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000046b0| 20 20 20 20 47 45 54 5f | 46 4f 52 4d 28 6c 6f 63 |    GET_|FORM(loc|
|000046c0| 29 20 3d 20 73 74 72 70 | 74 72 29 0d 23 64 65 66 |) = strp|tr).#def|
|000046d0| 69 6e 65 20 4c 4f 41 44 | 5f 53 4d 56 45 43 5f 54 |ine LOAD|_SMVEC_T|
|000046e0| 28 73 74 72 70 74 72 2c | 20 6c 6f 63 29 20 28 53 |(strptr,| loc) (S|
|000046f0| 45 54 5f 54 41 47 28 6c | 6f 63 2c 20 43 4c 5f 53 |ET_TAG(l|oc, CL_S|
|00004700| 4d 56 45 43 5f 54 29 2c | 5c 0d 20 20 20 20 20 20 |MVEC_T),|\.      |
|00004710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 47 45 54 |        |     GET|
|00004730| 5f 46 4f 52 4d 28 6c 6f | 63 29 20 3d 20 73 74 72 |_FORM(lo|c) = str|
|00004740| 70 74 72 29 0d 23 64 65 | 66 69 6e 65 20 4c 4f 41 |ptr).#de|fine LOA|
|00004750| 44 5f 53 4d 41 52 5f 54 | 28 73 74 72 70 74 72 2c |D_SMAR_T|(strptr,|
|00004760| 20 6c 6f 63 29 20 20 28 | 53 45 54 5f 54 41 47 28 | loc)  (|SET_TAG(|
|00004770| 6c 6f 63 2c 20 43 4c 5f | 53 4d 41 52 5f 54 29 2c |loc, CL_|SMAR_T),|
|00004780| 5c 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |\.      |        |
|00004790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000047a0| 20 20 20 20 20 47 45 54 | 5f 46 4f 52 4d 28 6c 6f |     GET|_FORM(lo|
|000047b0| 63 29 20 3d 20 73 74 72 | 70 74 72 29 0d 0d 23 64 |c) = str|ptr)..#d|
|000047c0| 65 66 69 6e 65 20 4c 4f | 41 44 5f 43 4f 44 45 28 |efine LO|AD_CODE(|
|000047d0| 66 75 6e 2c 20 6c 6f 63 | 29 20 20 20 20 20 20 28 |fun, loc|)      (|
|000047e0| 53 45 54 5f 54 41 47 28 | 6c 6f 63 2c 20 43 4c 5f |SET_TAG(|loc, CL_|
|000047f0| 43 4f 44 45 29 2c 47 45 | 54 5f 46 55 4e 28 6c 6f |CODE),GE|T_FUN(lo|
|00004800| 63 29 20 3d 20 66 75 6e | 29 0d 23 64 65 66 69 6e |c) = fun|).#defin|
|00004810| 65 20 4c 4f 41 44 5f 49 | 4e 44 28 70 74 72 2c 20 |e LOAD_I|ND(ptr, |
|00004820| 6c 6f 63 29 20 20 20 20 | 20 20 20 28 53 45 54 5f |loc)    |   (SET_|
|00004830| 54 41 47 28 6c 6f 63 2c | 20 43 4c 5f 49 4e 44 29 |TAG(loc,| CL_IND)|
|00004840| 2c 47 45 54 5f 46 4f 52 | 4d 28 6c 6f 63 29 20 3d |,GET_FOR|M(loc) =|
|00004850| 20 70 74 72 29 0d 23 64 | 65 66 69 6e 65 20 4c 4f | ptr).#d|efine LO|
|00004860| 41 44 5f 47 4c 4f 42 46 | 55 4e 28 70 74 72 2c 20 |AD_GLOBF|UN(ptr, |
|00004870| 6c 6f 63 29 20 20 20 28 | 53 45 54 5f 54 41 47 28 |loc)   (|SET_TAG(|
|00004880| 6c 6f 63 2c 20 43 4c 5f | 47 4c 4f 42 46 55 4e 29 |loc, CL_|GLOBFUN)|
|00004890| 2c 47 45 54 5f 47 46 41 | 52 47 28 6c 6f 63 29 20 |,GET_GFA|RG(loc) |
|000048a0| 3d 20 70 74 72 29 0d 23 | 64 65 66 69 6e 65 20 4c |= ptr).#|define L|
|000048b0| 4f 41 44 5f 44 4f 57 4e | 46 55 4e 28 70 74 72 2c |OAD_DOWN|FUN(ptr,|
|000048c0| 20 6c 6f 63 29 20 20 20 | 28 53 45 54 5f 54 41 47 | loc)   |(SET_TAG|
|000048d0| 28 6c 6f 63 2c 20 43 4c | 5f 44 4f 57 4e 46 55 4e |(loc, CL|_DOWNFUN|
|000048e0| 29 2c 47 45 54 5f 44 46 | 41 52 47 28 6c 6f 63 29 |),GET_DF|ARG(loc)|
|000048f0| 20 3d 20 70 74 72 29 0d | 23 64 65 66 69 6e 65 20 | = ptr).|#define |
|00004900| 4c 4f 41 44 5f 43 4c 4f | 53 55 52 45 28 70 74 72 |LOAD_CLO|SURE(ptr|
|00004910| 2c 20 6c 6f 63 29 20 20 | 20 28 53 45 54 5f 54 41 |, loc)  | (SET_TA|
|00004920| 47 28 6c 6f 63 2c 20 43 | 4c 5f 43 4c 4f 53 55 52 |G(loc, C|L_CLOSUR|
|00004930| 45 29 2c 47 45 54 5f 46 | 4f 52 4d 28 6c 6f 63 29 |E),GET_F|ORM(loc)|
|00004940| 20 3d 20 70 74 72 29 0d | 23 64 65 66 69 6e 65 20 | = ptr).|#define |
|00004950| 4c 4f 41 44 5f 55 4e 42 | 4f 55 4e 44 28 73 79 6d |LOAD_UNB|OUND(sym|
|00004960| 5f 76 61 6c 29 20 20 20 | 20 53 45 54 5f 54 41 47 |_val)   | SET_TAG|
|00004970| 28 73 79 6d 5f 76 61 6c | 2c 20 43 4c 5f 55 4e 42 |(sym_val|, CL_UNB|
|00004980| 4f 55 4e 44 29 0d 23 64 | 65 66 69 6e 65 20 4c 4f |OUND).#d|efine LO|
|00004990| 41 44 5f 53 54 52 55 43 | 54 28 70 74 72 2c 20 6c |AD_STRUC|T(ptr, l|
|000049a0| 6f 63 29 20 20 20 20 28 | 53 45 54 5f 54 41 47 28 |oc)    (|SET_TAG(|
|000049b0| 6c 6f 63 2c 20 43 4c 5f | 53 54 52 55 43 54 29 2c |loc, CL_|STRUCT),|
|000049c0| 47 45 54 5f 46 4f 52 4d | 28 6c 6f 63 29 20 3d 20 |GET_FORM|(loc) = |
|000049d0| 70 74 72 29 0d 23 64 65 | 66 69 6e 65 20 4c 4f 41 |ptr).#de|fine LOA|
|000049e0| 44 5f 43 46 49 4c 45 28 | 70 74 72 2c 20 6c 6f 63 |D_CFILE(|ptr, loc|
|000049f0| 29 20 20 20 20 20 28 53 | 45 54 5f 54 41 47 28 6c |)     (S|ET_TAG(l|
|00004a00| 6f 63 2c 20 43 4c 5f 43 | 46 49 4c 45 29 2c 47 45 |oc, CL_C|FILE),GE|
|00004a10| 54 5f 43 46 49 4c 45 28 | 6c 6f 63 29 20 3d 20 70 |T_CFILE(|loc) = p|
|00004a20| 74 72 29 0d 23 64 65 66 | 69 6e 65 20 4c 4f 41 44 |tr).#def|ine LOAD|
|00004a30| 5f 55 4e 49 51 55 45 5f | 54 41 47 28 6c 6f 63 29 |_UNIQUE_|TAG(loc)|
|00004a40| 20 20 20 20 20 28 53 45 | 54 5f 54 41 47 28 6c 6f |     (SE|T_TAG(lo|
|00004a50| 63 2c 20 43 4c 5f 55 4e | 49 51 55 45 5f 54 41 47 |c, CL_UN|IQUE_TAG|
|00004a60| 29 2c 5c 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |),\.    |        |
|00004a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004a80| 20 20 20 20 20 20 47 45 | 54 5f 46 49 58 4e 55 4d |      GE|T_FIXNUM|
|00004a90| 28 6c 6f 63 29 20 3d 20 | 74 61 67 5f 63 6f 75 6e |(loc) = |tag_coun|
|00004aa0| 74 65 72 2b 2b 29 0d 0d | 23 64 65 66 69 6e 65 20 |ter++)..|#define |
|00004ab0| 4c 4f 41 44 5f 56 45 43 | 54 4f 52 28 76 65 63 2c |LOAD_VEC|TOR(vec,|
|00004ac0| 74 61 67 2c 6c 6f 63 29 | 20 20 28 53 45 54 5f 54 |tag,loc)|  (SET_T|
|00004ad0| 41 47 28 6c 6f 63 2c 20 | 74 61 67 29 2c 47 45 54 |AG(loc, |tag),GET|
|00004ae0| 5f 46 4f 52 4d 28 6c 6f | 63 29 20 3d 20 28 76 65 |_FORM(lo|c) = (ve|
|00004af0| 63 29 29 0d 23 64 65 66 | 69 6e 65 20 4c 4f 41 44 |c)).#def|ine LOAD|
|00004b00| 5f 41 52 52 41 59 28 76 | 65 63 2c 74 61 67 2c 6c |_ARRAY(v|ec,tag,l|
|00004b10| 6f 63 29 20 20 28 53 45 | 54 5f 54 41 47 28 6c 6f |oc)  (SE|T_TAG(lo|
|00004b20| 63 2c 20 74 61 67 29 2c | 47 45 54 5f 46 4f 52 4d |c, tag),|GET_FORM|
|00004b30| 28 6c 6f 63 29 20 3d 20 | 28 76 65 63 29 29 0d 0d |(loc) = |(vec))..|
|00004b40| 23 64 65 66 69 6e 65 20 | 4c 4f 41 44 5f 43 5f 43 |#define |LOAD_C_C|
|00004b50| 48 41 52 28 63 68 72 2c | 20 6c 6f 63 29 20 5c 0d |HAR(chr,| loc) \.|
|00004b60| 20 20 20 28 53 45 54 5f | 54 41 47 28 6c 6f 63 2c |   (SET_|TAG(loc,|
|00004b70| 20 43 4c 5f 43 5f 43 48 | 41 52 29 2c 20 28 28 6c | CL_C_CH|AR), ((l|
|00004b80| 6f 63 29 2d 3e 76 61 6c | 2e 63 68 29 20 3d 20 28 |oc)->val|.ch) = (|
|00004b90| 75 6e 73 69 67 6e 65 64 | 20 6c 6f 6e 67 29 28 63 |unsigned| long)(c|
|00004ba0| 68 72 29 29 0d 23 64 65 | 66 69 6e 65 20 4c 4f 41 |hr)).#de|fine LOA|
|00004bb0| 44 5f 43 5f 53 48 4f 52 | 54 28 6e 75 6d 2c 20 6c |D_C_SHOR|T(num, l|
|00004bc0| 6f 63 29 20 5c 0d 20 20 | 20 28 53 45 54 5f 54 41 |oc) \.  | (SET_TA|
|00004bd0| 47 28 6c 6f 63 2c 20 43 | 4c 5f 43 5f 53 48 4f 52 |G(loc, C|L_C_SHOR|
|00004be0| 54 29 2c 20 28 28 6c 6f | 63 29 2d 3e 76 61 6c 2e |T), ((lo|c)->val.|
|00004bf0| 69 29 20 3d 20 28 6c 6f | 6e 67 29 28 6e 75 6d 29 |i) = (lo|ng)(num)|
|00004c00| 29 0d 23 64 65 66 69 6e | 65 20 4c 4f 41 44 5f 43 |).#defin|e LOAD_C|
|00004c10| 5f 49 4e 54 28 6e 75 6d | 2c 20 6c 6f 63 29 20 5c |_INT(num|, loc) \|
|00004c20| 0d 20 20 20 28 53 45 54 | 5f 54 41 47 28 6c 6f 63 |.   (SET|_TAG(loc|
|00004c30| 2c 20 43 4c 5f 43 5f 49 | 4e 54 29 2c 20 28 28 6c |, CL_C_I|NT), ((l|
|00004c40| 6f 63 29 2d 3e 76 61 6c | 2e 69 29 20 3d 20 28 6c |oc)->val|.i) = (l|
|00004c50| 6f 6e 67 29 28 6e 75 6d | 29 29 0d 23 64 65 66 69 |ong)(num|)).#defi|
|00004c60| 6e 65 20 4c 4f 41 44 5f | 43 5f 4c 4f 4e 47 28 6e |ne LOAD_|C_LONG(n|
|00004c70| 75 6d 2c 20 6c 6f 63 29 | 20 5c 0d 20 20 20 28 53 |um, loc)| \.   (S|
|00004c80| 45 54 5f 54 41 47 28 6c | 6f 63 2c 20 43 4c 5f 43 |ET_TAG(l|oc, CL_C|
|00004c90| 5f 4c 4f 4e 47 29 2c 20 | 28 28 6c 6f 63 29 2d 3e |_LONG), |((loc)->|
|00004ca0| 76 61 6c 2e 69 29 20 3d | 20 28 6c 6f 6e 67 29 28 |val.i) =| (long)(|
|00004cb0| 6e 75 6d 29 29 0d 23 64 | 65 66 69 6e 65 20 4c 4f |num)).#d|efine LO|
|00004cc0| 41 44 5f 43 5f 55 4e 53 | 49 47 4e 45 44 5f 43 48 |AD_C_UNS|IGNED_CH|
|00004cd0| 41 52 28 63 68 72 2c 20 | 6c 6f 63 29 20 5c 0d 20 |AR(chr, |loc) \. |
|00004ce0| 20 20 28 53 45 54 5f 54 | 41 47 28 6c 6f 63 2c 20 |  (SET_T|AG(loc, |
|00004cf0| 43 4c 5f 43 5f 55 4e 53 | 49 47 4e 45 44 5f 43 48 |CL_C_UNS|IGNED_CH|
|00004d00| 41 52 29 2c 20 28 28 6c | 6f 63 29 2d 3e 76 61 6c |AR), ((l|oc)->val|
|00004d10| 2e 63 68 29 20 3d 20 28 | 75 6e 73 69 67 6e 65 64 |.ch) = (|unsigned|
|00004d20| 20 6c 6f 6e 67 29 28 63 | 68 72 29 29 0d 23 64 65 | long)(c|hr)).#de|
|00004d30| 66 69 6e 65 20 4c 4f 41 | 44 5f 43 5f 55 4e 53 49 |fine LOA|D_C_UNSI|
|00004d40| 47 4e 45 44 5f 53 48 4f | 52 54 28 6e 75 6d 2c 20 |GNED_SHO|RT(num, |
|00004d50| 6c 6f 63 29 20 5c 0d 20 | 20 20 28 53 45 54 5f 54 |loc) \. |  (SET_T|
|00004d60| 41 47 28 6c 6f 63 2c 20 | 43 4c 5f 43 5f 55 4e 53 |AG(loc, |CL_C_UNS|
|00004d70| 49 47 4e 45 44 5f 53 48 | 4f 52 54 29 2c 20 28 28 |IGNED_SH|ORT), ((|
|00004d80| 6c 6f 63 29 2d 3e 76 61 | 6c 2e 69 29 20 3d 20 28 |loc)->va|l.i) = (|
|00004d90| 6c 6f 6e 67 29 28 6e 75 | 6d 29 29 0d 23 64 65 66 |long)(nu|m)).#def|
|00004da0| 69 6e 65 20 4c 4f 41 44 | 5f 43 5f 55 4e 53 49 47 |ine LOAD|_C_UNSIG|
|00004db0| 4e 45 44 5f 49 4e 54 28 | 6e 75 6d 2c 20 6c 6f 63 |NED_INT(|num, loc|
|00004dc0| 29 20 5c 0d 20 20 20 28 | 53 45 54 5f 54 41 47 28 |) \.   (|SET_TAG(|
|00004dd0| 6c 6f 63 2c 20 43 4c 5f | 43 5f 55 4e 53 49 47 4e |loc, CL_|C_UNSIGN|
|00004de0| 45 44 5f 49 4e 54 29 2c | 20 28 28 6c 6f 63 29 2d |ED_INT),| ((loc)-|
|00004df0| 3e 76 61 6c 2e 69 29 20 | 3d 20 28 6c 6f 6e 67 29 |>val.i) |= (long)|
|00004e00| 28 6e 75 6d 29 29 0d 23 | 64 65 66 69 6e 65 20 4c |(num)).#|define L|
|00004e10| 4f 41 44 5f 43 5f 55 4e | 53 49 47 4e 45 44 5f 4c |OAD_C_UN|SIGNED_L|
|00004e20| 4f 4e 47 28 6e 75 6d 2c | 20 6c 6f 63 29 20 5c 0d |ONG(num,| loc) \.|
|00004e30| 20 20 20 28 53 45 54 5f | 54 41 47 28 6c 6f 63 2c |   (SET_|TAG(loc,|
|00004e40| 20 43 4c 5f 43 5f 55 4e | 53 49 47 4e 45 44 5f 4c | CL_C_UN|SIGNED_L|
|00004e50| 4f 4e 47 29 2c 20 28 28 | 6c 6f 63 29 2d 3e 76 61 |ONG), ((|loc)->va|
|00004e60| 6c 2e 69 29 20 3d 20 28 | 6c 6f 6e 67 29 28 6e 75 |l.i) = (|long)(nu|
|00004e70| 6d 29 29 0d 0d 23 64 65 | 66 69 6e 65 20 4c 4f 41 |m))..#de|fine LOA|
|00004e80| 44 5f 43 5f 43 48 41 52 | 5f 50 54 52 28 70 74 72 |D_C_CHAR|_PTR(ptr|
|00004e90| 2c 20 6c 6f 63 29 20 5c | 0d 20 20 20 28 53 45 54 |, loc) \|.   (SET|
|00004ea0| 5f 54 41 47 28 6c 6f 63 | 2c 20 43 4c 5f 43 5f 43 |_TAG(loc|, CL_C_C|
|00004eb0| 48 41 52 5f 50 54 52 29 | 2c 20 28 28 6c 6f 63 29 |HAR_PTR)|, ((loc)|
|00004ec0| 2d 3e 76 61 6c 2e 63 68 | 5f 70 74 72 29 20 3d 20 |->val.ch|_ptr) = |
|00004ed0| 28 63 68 61 72 20 2a 29 | 28 70 74 72 29 29 0d 23 |(char *)|(ptr)).#|
|00004ee0| 64 65 66 69 6e 65 20 4c | 4f 41 44 5f 43 5f 53 48 |define L|OAD_C_SH|
|00004ef0| 4f 52 54 5f 50 54 52 28 | 70 74 72 2c 20 6c 6f 63 |ORT_PTR(|ptr, loc|
|00004f00| 29 20 5c 0d 20 20 20 28 | 53 45 54 5f 54 41 47 28 |) \.   (|SET_TAG(|
|00004f10| 6c 6f 63 2c 20 43 4c 5f | 43 5f 53 48 4f 52 54 5f |loc, CL_|C_SHORT_|
|00004f20| 50 54 52 29 2c 20 28 28 | 6c 6f 63 29 2d 3e 76 61 |PTR), ((|loc)->va|
|00004f30| 6c 2e 63 68 5f 70 74 72 | 29 20 3d 20 28 63 68 61 |l.ch_ptr|) = (cha|
|00004f40| 72 20 2a 29 28 70 74 72 | 29 29 0d 23 64 65 66 69 |r *)(ptr|)).#defi|
|00004f50| 6e 65 20 4c 4f 41 44 5f | 43 5f 49 4e 54 5f 50 54 |ne LOAD_|C_INT_PT|
|00004f60| 52 28 70 74 72 2c 20 6c | 6f 63 29 20 5c 0d 20 20 |R(ptr, l|oc) \.  |
|00004f70| 20 28 53 45 54 5f 54 41 | 47 28 6c 6f 63 2c 20 43 | (SET_TA|G(loc, C|
|00004f80| 4c 5f 43 5f 49 4e 54 5f | 50 54 52 29 2c 20 28 28 |L_C_INT_|PTR), ((|
|00004f90| 6c 6f 63 29 2d 3e 76 61 | 6c 2e 63 68 5f 70 74 72 |loc)->va|l.ch_ptr|
|00004fa0| 29 20 3d 20 28 63 68 61 | 72 20 2a 29 28 70 74 72 |) = (cha|r *)(ptr|
|00004fb0| 29 29 0d 23 64 65 66 69 | 6e 65 20 4c 4f 41 44 5f |)).#defi|ne LOAD_|
|00004fc0| 43 5f 4c 4f 4e 47 5f 50 | 54 52 28 70 74 72 2c 20 |C_LONG_P|TR(ptr, |
|00004fd0| 6c 6f 63 29 20 5c 0d 20 | 20 20 28 53 45 54 5f 54 |loc) \. |  (SET_T|
|00004fe0| 41 47 28 6c 6f 63 2c 20 | 43 4c 5f 43 5f 4c 4f 4e |AG(loc, |CL_C_LON|
|00004ff0| 47 5f 50 54 52 29 2c 20 | 28 28 6c 6f 63 29 2d 3e |G_PTR), |((loc)->|
|00005000| 76 61 6c 2e 63 68 5f 70 | 74 72 29 20 3d 20 28 63 |val.ch_p|tr) = (c|
|00005010| 68 61 72 20 2a 29 28 70 | 74 72 29 29 0d 23 64 65 |har *)(p|tr)).#de|
|00005020| 66 69 6e 65 20 4c 4f 41 | 44 5f 43 5f 55 4e 53 49 |fine LOA|D_C_UNSI|
|00005030| 47 4e 45 44 5f 43 48 41 | 52 5f 50 54 52 28 70 74 |GNED_CHA|R_PTR(pt|
|00005040| 72 2c 20 6c 6f 63 29 20 | 5c 0d 20 20 20 28 53 45 |r, loc) |\.   (SE|
|00005050| 54 5f 54 41 47 28 6c 6f | 63 2c 20 43 4c 5f 43 5f |T_TAG(lo|c, CL_C_|
|00005060| 55 4e 53 49 47 4e 45 44 | 5f 43 48 41 52 5f 50 54 |UNSIGNED|_CHAR_PT|
|00005070| 52 29 2c 20 28 28 6c 6f | 63 29 2d 3e 76 61 6c 2e |R), ((lo|c)->val.|
|00005080| 63 68 5f 70 74 72 29 20 | 3d 20 28 63 68 61 72 20 |ch_ptr) |= (char |
|00005090| 2a 29 28 70 74 72 29 29 | 0d 23 64 65 66 69 6e 65 |*)(ptr))|.#define|
|000050a0| 20 4c 4f 41 44 5f 43 5f | 55 4e 53 49 47 4e 45 44 | LOAD_C_|UNSIGNED|
|000050b0| 5f 53 48 4f 52 54 5f 50 | 54 52 28 70 74 72 2c 20 |_SHORT_P|TR(ptr, |
|000050c0| 6c 6f 63 29 20 20 5c 0d | 20 20 20 28 53 45 54 5f |loc)  \.|   (SET_|
|000050d0| 54 41 47 28 6c 6f 63 2c | 20 43 4c 5f 43 5f 55 4e |TAG(loc,| CL_C_UN|
|000050e0| 53 49 47 4e 45 44 5f 53 | 48 4f 52 54 5f 50 54 52 |SIGNED_S|HORT_PTR|
|000050f0| 29 2c 20 28 28 6c 6f 63 | 29 2d 3e 76 61 6c 2e 63 |), ((loc|)->val.c|
|00005100| 68 5f 70 74 72 29 20 3d | 20 28 63 68 61 72 20 2a |h_ptr) =| (char *|
|00005110| 29 28 70 74 72 29 29 0d | 23 64 65 66 69 6e 65 20 |)(ptr)).|#define |
|00005120| 4c 4f 41 44 5f 43 5f 55 | 4e 53 49 47 4e 45 44 5f |LOAD_C_U|NSIGNED_|
|00005130| 49 4e 54 5f 50 54 52 28 | 70 74 72 2c 20 6c 6f 63 |INT_PTR(|ptr, loc|
|00005140| 29 20 5c 0d 20 20 20 28 | 53 45 54 5f 54 41 47 28 |) \.   (|SET_TAG(|
|00005150| 6c 6f 63 2c 20 43 4c 5f | 43 5f 55 4e 53 49 47 4e |loc, CL_|C_UNSIGN|
|00005160| 45 44 5f 49 4e 54 5f 50 | 54 52 29 2c 20 28 28 6c |ED_INT_P|TR), ((l|
|00005170| 6f 63 29 2d 3e 76 61 6c | 2e 63 68 5f 70 74 72 29 |oc)->val|.ch_ptr)|
|00005180| 20 3d 20 28 63 68 61 72 | 20 2a 29 28 70 74 72 29 | = (char| *)(ptr)|
|00005190| 29 0d 23 64 65 66 69 6e | 65 20 4c 4f 41 44 5f 43 |).#defin|e LOAD_C|
|000051a0| 5f 55 4e 53 49 47 4e 45 | 44 5f 4c 4f 4e 47 5f 50 |_UNSIGNE|D_LONG_P|
|000051b0| 54 52 28 70 74 72 2c 20 | 6c 6f 63 29 20 5c 0d 20 |TR(ptr, |loc) \. |
|000051c0| 20 20 28 53 45 54 5f 54 | 41 47 28 6c 6f 63 2c 20 |  (SET_T|AG(loc, |
|000051d0| 43 4c 5f 43 5f 55 4e 53 | 49 47 4e 45 44 5f 4c 4f |CL_C_UNS|IGNED_LO|
|000051e0| 4e 47 5f 50 54 52 29 2c | 20 28 28 6c 6f 63 29 2d |NG_PTR),| ((loc)-|
|000051f0| 3e 76 61 6c 2e 63 68 5f | 70 74 72 29 20 3d 20 28 |>val.ch_|ptr) = (|
|00005200| 63 68 61 72 20 2a 29 28 | 70 74 72 29 29 0d 23 64 |char *)(|ptr)).#d|
|00005210| 65 66 69 6e 65 20 4c 4f | 41 44 5f 43 5f 53 54 52 |efine LO|AD_C_STR|
|00005220| 55 43 54 28 70 74 72 2c | 20 6c 6f 63 29 20 5c 0d |UCT(ptr,| loc) \.|
|00005230| 20 20 20 28 53 45 54 5f | 54 41 47 28 6c 6f 63 2c |   (SET_|TAG(loc,|
|00005240| 20 43 4c 5f 43 5f 53 54 | 52 55 43 54 29 2c 20 28 | CL_C_ST|RUCT), (|
|00005250| 28 6c 6f 63 29 2d 3e 76 | 61 6c 2e 66 6f 72 6d 29 |(loc)->v|al.form)|
|00005260| 20 3d 20 28 70 74 72 29 | 29 0d 23 64 65 66 69 6e | = (ptr)|).#defin|
|00005270| 65 20 4c 4f 41 44 5f 43 | 5f 53 54 52 55 43 54 5f |e LOAD_C|_STRUCT_|
|00005280| 50 54 52 28 70 74 72 2c | 20 6c 6f 63 29 20 5c 0d |PTR(ptr,| loc) \.|
|00005290| 20 20 20 28 53 45 54 5f | 54 41 47 28 6c 6f 63 2c |   (SET_|TAG(loc,|
|000052a0| 20 43 4c 5f 43 5f 53 54 | 52 55 43 54 5f 50 54 52 | CL_C_ST|RUCT_PTR|
|000052b0| 29 2c 20 28 28 6c 6f 63 | 29 2d 3e 76 61 6c 2e 66 |), ((loc|)->val.f|
|000052c0| 6f 72 6d 29 20 3d 20 28 | 70 74 72 29 29 0d 0d 0d |orm) = (|ptr))...|
|000052d0| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|000052e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000052f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005320| 0d 20 2a 20 41 75 66 62 | 61 75 20 76 6f 6e 20 53 |. * Aufb|au von S|
|00005330| 79 6d 62 6f 6c 65 6e 0d | 20 2a 2d 2d 2d 2d 2d 2d |ymbolen.| *------|
|00005340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005380| 2d 2d 2d 2d 2d 2d 2a 2f | 0d 23 64 65 66 69 6e 65 |------*/|.#define|
|00005390| 20 4f 46 46 5f 53 59 4d | 5f 50 4e 41 4d 45 20 20 | OFF_SYM|_PNAME  |
|000053a0| 20 20 20 20 20 20 20 20 | 20 30 0d 23 64 65 66 69 |        | 0.#defi|
|000053b0| 6e 65 20 4f 46 46 5f 53 | 59 4d 5f 4c 45 4e 20 20 |ne OFF_S|YM_LEN  |
|000053c0| 20 20 20 20 20 20 20 20 | 20 20 20 30 0d 23 64 65 |        |   0.#de|
|000053d0| 66 69 6e 65 20 4f 46 46 | 5f 53 59 4d 5f 43 5f 53 |fine OFF|_SYM_C_S|
|000053e0| 54 52 49 4e 47 20 20 20 | 20 20 20 20 20 31 0d 23 |TRING   |     1.#|
|000053f0| 64 65 66 69 6e 65 20 4f | 46 46 5f 53 59 4d 5f 50 |define O|FF_SYM_P|
|00005400| 4c 49 53 54 20 20 20 20 | 20 20 20 20 20 20 20 32 |LIST    |       2|
|00005410| 0d 23 64 65 66 69 6e 65 | 20 4f 46 46 5f 53 59 4d |.#define| OFF_SYM|
|00005420| 5f 56 41 4c 55 45 20 20 | 20 20 20 20 20 20 20 20 |_VALUE  |        |
|00005430| 20 33 0d 23 64 65 66 69 | 6e 65 20 4f 46 46 5f 53 | 3.#defi|ne OFF_S|
|00005440| 59 4d 5f 50 41 43 4b 41 | 47 45 20 20 20 20 20 20 |YM_PACKA|GE      |
|00005450| 20 20 20 34 0d 23 64 65 | 66 69 6e 65 20 4f 46 46 |   4.#de|fine OFF|
|00005460| 5f 53 59 4d 5f 43 4f 4e | 53 54 46 4c 41 47 20 20 |_SYM_CON|STFLAG  |
|00005470| 20 20 20 20 20 35 0d 0d | 23 64 65 66 69 6e 65 20 |     5..|#define |
|00005480| 53 59 4d 5f 53 49 5a 45 | 20 20 20 20 20 20 20 20 |SYM_SIZE|        |
|00005490| 20 20 20 20 20 20 20 20 | 36 0d 0d 23 64 65 66 69 |        |6..#defi|
|000054a0| 6e 65 20 53 59 4d 5f 50 | 4c 49 53 54 28 73 79 6d |ne SYM_P|LIST(sym|
|000054b0| 29 20 20 20 20 20 20 20 | 20 20 20 28 47 45 54 5f |)       |   (GET_|
|000054c0| 46 4f 52 4d 28 73 79 6d | 29 20 2b 20 4f 46 46 5f |FORM(sym|) + OFF_|
|000054d0| 53 59 4d 5f 50 4c 49 53 | 54 29 0d 23 64 65 66 69 |SYM_PLIS|T).#defi|
|000054e0| 6e 65 20 53 59 4d 5f 56 | 41 4c 55 45 28 73 79 6d |ne SYM_V|ALUE(sym|
|000054f0| 29 20 20 20 20 20 20 20 | 20 20 20 28 47 45 54 5f |)       |   (GET_|
|00005500| 46 4f 52 4d 28 73 79 6d | 29 20 2b 20 4f 46 46 5f |FORM(sym|) + OFF_|
|00005510| 53 59 4d 5f 56 41 4c 55 | 45 29 0d 23 64 65 66 69 |SYM_VALU|E).#defi|
|00005520| 6e 65 20 53 59 4d 5f 50 | 41 43 4b 41 47 45 28 73 |ne SYM_P|ACKAGE(s|
|00005530| 79 6d 29 20 20 20 20 20 | 20 20 20 28 47 45 54 5f |ym)     |   (GET_|
|00005540| 46 4f 52 4d 28 73 79 6d | 29 20 2b 20 4f 46 46 5f |FORM(sym|) + OFF_|
|00005550| 53 59 4d 5f 50 41 43 4b | 41 47 45 29 0d 0d 23 64 |SYM_PACK|AGE)..#d|
|00005560| 65 66 69 6e 65 20 53 59 | 4d 5f 43 4f 4e 53 54 46 |efine SY|M_CONSTF|
|00005570| 4c 41 47 28 73 79 6d 29 | 20 20 20 20 20 20 28 47 |LAG(sym)|      (G|
|00005580| 45 54 5f 46 4f 52 4d 28 | 73 79 6d 29 20 2b 20 4f |ET_FORM(|sym) + O|
|00005590| 46 46 5f 53 59 4d 5f 43 | 4f 4e 53 54 46 4c 41 47 |FF_SYM_C|ONSTFLAG|
|000055a0| 29 0d 23 64 65 66 69 6e | 65 20 53 59 4d 5f 49 53 |).#defin|e SYM_IS|
|000055b0| 5f 43 4f 4e 53 54 28 73 | 79 6d 29 20 20 20 20 20 |_CONST(s|ym)     |
|000055c0| 20 20 43 4c 5f 54 52 55 | 45 50 28 53 59 4d 5f 43 |  CL_TRU|EP(SYM_C|
|000055d0| 4f 4e 53 54 46 4c 41 47 | 28 73 79 6d 29 29 0d 23 |ONSTFLAG|(sym)).#|
|000055e0| 64 65 66 69 6e 65 20 53 | 59 4d 5f 53 45 54 5f 43 |define S|YM_SET_C|
|000055f0| 4f 4e 53 54 28 73 79 6d | 29 20 20 20 20 20 20 4c |ONST(sym|)      L|
|00005600| 4f 41 44 5f 54 28 53 59 | 4d 5f 43 4f 4e 53 54 46 |OAD_T(SY|M_CONSTF|
|00005610| 4c 41 47 28 73 79 6d 29 | 29 0d 23 64 65 66 69 6e |LAG(sym)|).#defin|
|00005620| 65 20 53 59 4d 5f 53 45 | 54 5f 4e 4f 52 4d 41 4c |e SYM_SE|T_NORMAL|
|00005630| 28 73 79 6d 29 20 20 20 | 20 20 4c 4f 41 44 5f 4e |(sym)   |  LOAD_N|
|00005640| 49 4c 28 53 59 4d 5f 43 | 4f 4e 53 54 46 4c 41 47 |IL(SYM_C|ONSTFLAG|
|00005650| 28 73 79 6d 29 29 0d 0d | 23 64 65 66 69 6e 65 20 |(sym))..|#define |
|00005660| 4c 4f 41 44 5f 53 59 4d | 5f 50 4e 41 4d 45 28 73 |LOAD_SYM|_PNAME(s|
|00005670| 79 6d 2c 20 6c 6f 63 29 | 20 20 4c 4f 41 44 5f 53 |ym, loc)|  LOAD_S|
|00005680| 4d 53 54 52 28 47 45 54 | 5f 46 4f 52 4d 20 28 73 |MSTR(GET|_FORM (s|
|00005690| 79 6d 29 2c 20 6c 6f 63 | 29 0d 23 64 65 66 69 6e |ym), loc|).#defin|
|000056a0| 65 20 53 59 4d 42 4f 4c | 28 62 61 73 65 2c 20 69 |e SYMBOL|(base, i|
|000056b0| 6e 64 65 78 29 20 28 43 | 4c 5f 46 4f 52 4d 20 2a |ndex) (C|L_FORM *|
|000056c0| 29 28 26 62 61 73 65 5b | 53 59 4d 5f 53 49 5a 45 |)(&base[|SYM_SIZE|
|000056d0| 20 2a 20 69 6e 64 65 78 | 5d 29 0d 23 64 65 66 69 | * index|]).#defi|
|000056e0| 6e 65 20 53 59 4d 56 41 | 4c 28 62 61 73 65 2c 20 |ne SYMVA|L(base, |
|000056f0| 69 6e 64 65 78 29 20 28 | 28 43 4c 5f 46 4f 52 4d |index) (|(CL_FORM|
|00005700| 20 2a 29 26 62 61 73 65 | 5b 53 59 4d 5f 53 49 5a | *)&base|[SYM_SIZ|
|00005710| 45 20 2a 20 69 6e 64 65 | 78 20 2b 20 4f 46 46 5f |E * inde|x + OFF_|
|00005720| 53 59 4d 5f 56 41 4c 55 | 45 5d 29 0d 0d 2f 2a 20 |SYM_VALU|E])../* |
|00005730| 45 72 73 74 65 6c 6c 74 | 20 6e 65 75 65 73 20 53 |Erstellt| neues S|
|00005740| 79 6d 62 6f 6c 2e 20 50 | 61 72 61 6d 65 74 65 72 |ymbol. P|arameter|
|00005750| 20 69 73 74 20 43 4c 5f | 46 4f 52 4d 20 2a 2c 20 | ist CL_|FORM *, |
|00005760| 4e 61 6d 65 20 73 74 65 | 68 74 20 69 6e 20 62 61 |Name ste|ht in ba|
|00005770| 73 65 2b 30 20 2a 2f 0d | 23 64 65 66 69 6e 65 20 |se+0 */.|#define |
|00005780| 53 59 4d 5f 4d 41 4b 45 | 5f 53 59 4d 28 73 79 6d |SYM_MAKE|_SYM(sym|
|00005790| 29 20 5c 0d 20 20 20 73 | 79 6d 20 3d 20 66 6f 72 |) \.   s|ym = for|
|000057a0| 6d 5f 61 6c 6c 6f 63 28 | 53 54 41 43 4b 28 62 61 |m_alloc(|STACK(ba|
|000057b0| 73 65 2c 20 31 29 2c 20 | 53 59 4d 5f 53 49 5a 45 |se, 1), |SYM_SIZE|
|000057c0| 29 3b 5c 0d 20 20 20 4c | 4f 41 44 5f 46 49 58 4e |);\.   L|OAD_FIXN|
|000057d0| 55 4d 28 41 52 5f 53 49 | 5a 45 28 47 45 54 5f 46 |UM(AR_SI|ZE(GET_F|
|000057e0| 4f 52 4d 28 53 54 41 43 | 4b 28 62 61 73 65 2c 20 |ORM(STAC|K(base, |
|000057f0| 30 29 29 29 2c 20 4f 46 | 46 53 45 54 28 73 79 6d |0))), OF|FSET(sym|
|00005800| 2c 4f 46 46 5f 53 59 4d | 5f 4c 45 4e 29 29 3b 5c |,OFF_SYM|_LEN));\|
|00005810| 0d 20 20 20 4c 4f 41 44 | 5f 43 48 41 52 5f 50 54 |.   LOAD|_CHAR_PT|
|00005820| 52 28 73 6d 5f 67 65 74 | 5f 63 5f 73 74 72 69 6e |R(sm_get|_c_strin|
|00005830| 67 28 53 54 41 43 4b 28 | 62 61 73 65 2c 20 30 29 |g(STACK(|base, 0)|
|00005840| 29 2c 20 5c 0d 20 20 20 | 20 20 20 20 20 20 20 20 |), \.   |        |
|00005850| 20 20 20 20 20 20 4f 46 | 46 53 45 54 28 73 79 6d |      OF|FSET(sym|
|00005860| 2c 4f 46 46 5f 53 59 4d | 5f 43 5f 53 54 52 49 4e |,OFF_SYM|_C_STRIN|
|00005870| 47 29 29 3b 5c 0d 20 20 | 20 4c 4f 41 44 5f 4e 49 |G));\.  | LOAD_NI|
|00005880| 4c 28 4f 46 46 53 45 54 | 28 73 79 6d 2c 4f 46 46 |L(OFFSET|(sym,OFF|
|00005890| 5f 53 59 4d 5f 50 4c 49 | 53 54 29 29 3b 5c 0d 20 |_SYM_PLI|ST));\. |
|000058a0| 20 20 4c 4f 41 44 5f 55 | 4e 42 4f 55 4e 44 28 4f |  LOAD_U|NBOUND(O|
|000058b0| 46 46 53 45 54 28 73 79 | 6d 2c 4f 46 46 5f 53 59 |FFSET(sy|m,OFF_SY|
|000058c0| 4d 5f 56 41 4c 55 45 29 | 29 3b 5c 0d 20 20 20 4c |M_VALUE)|);\.   L|
|000058d0| 4f 41 44 5f 4e 49 4c 28 | 4f 46 46 53 45 54 28 73 |OAD_NIL(|OFFSET(s|
|000058e0| 79 6d 2c 4f 46 46 5f 53 | 59 4d 5f 50 41 43 4b 41 |ym,OFF_S|YM_PACKA|
|000058f0| 47 45 29 29 3b 5c 0d 20 | 20 20 4c 4f 41 44 5f 4e |GE));\. |  LOAD_N|
|00005900| 49 4c 28 4f 46 46 53 45 | 54 28 73 79 6d 2c 4f 46 |IL(OFFSE|T(sym,OF|
|00005910| 46 5f 53 59 4d 5f 43 4f | 4e 53 54 46 4c 41 47 29 |F_SYM_CO|NSTFLAG)|
|00005920| 29 0d 0d 0d 2f 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |).../*--|--------|
|00005930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005940| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005950| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005970| 2d 2d 2d 2d 0d 20 2a 20 | 5a 75 67 72 69 66 66 20 |----. * |Zugriff |
|00005980| 61 75 66 20 4b 6c 61 73 | 73 65 6e 0d 20 2a 2d 2d |auf Klas|sen. *--|
|00005990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000059a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000059b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000059c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000059d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2a 2f 0d 23 64 65 |--------|--*/.#de|
|000059e0| 66 69 6e 65 20 43 4c 41 | 53 53 5f 53 49 5a 45 20 |fine CLA|SS_SIZE |
|000059f0| 36 0d 23 64 65 66 69 6e | 65 20 43 4c 41 53 53 28 |6.#defin|e CLASS(|
|00005a00| 69 6e 64 65 78 29 20 28 | 28 43 4c 5f 46 4f 52 4d |index) (|(CL_FORM|
|00005a10| 20 2a 29 26 63 6c 61 73 | 73 65 73 5b 43 4c 41 53 | *)&clas|ses[CLAS|
|00005a20| 53 5f 53 49 5a 45 20 2a | 20 69 6e 64 65 78 5d 29 |S_SIZE *| index])|
|00005a30| 0d 0d 0d 2f 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.../*---|--------|
|00005a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005a80| 2d 2d 2d 0d 20 2a 20 5a | 75 67 72 69 66 66 20 61 |---. * Z|ugriff a|
|00005a90| 75 66 20 64 69 65 20 4b | 6f 6d 70 6f 6e 65 6e 74 |uf die K|omponent|
|00005aa0| 65 6e 20 65 69 6e 65 73 | 20 53 74 72 69 6e 67 73 |en eines| Strings|
|00005ab0| 20 2f 20 56 65 6b 74 6f | 72 73 20 2f 20 41 72 72 | / Vekto|rs / Arr|
|00005ac0| 61 79 73 0d 20 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ays. *--|--------|
|00005ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005b10| 2d 2d 2a 2f 0d 23 64 65 | 66 69 6e 65 20 41 52 5f |--*/.#de|fine AR_|
|00005b20| 53 49 5a 45 28 61 72 29 | 20 20 20 20 20 20 20 20 |SIZE(ar)|        |
|00005b30| 20 20 20 20 20 20 20 20 | 20 47 45 54 5f 46 49 58 |        | GET_FIX|
|00005b40| 4e 55 4d 28 61 72 29 0d | 23 64 65 66 69 6e 65 20 |NUM(ar).|#define |
|00005b50| 53 45 54 5f 41 52 5f 53 | 49 5a 45 28 73 7a 2c 20 |SET_AR_S|IZE(sz, |
|00005b60| 61 72 29 20 20 20 20 20 | 20 20 20 20 4c 4f 41 44 |ar)     |    LOAD|
|00005b70| 5f 46 49 58 4e 55 4d 28 | 73 7a 2c 20 61 72 29 0d |_FIXNUM(|sz, ar).|
|00005b80| 23 64 65 66 69 6e 65 20 | 41 52 5f 42 41 53 45 28 |#define |AR_BASE(|
|00005b90| 61 72 29 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ar)     |        |
|00005ba0| 20 20 20 20 4f 46 46 53 | 45 54 28 61 72 2c 20 31 |    OFFS|ET(ar, 1|
|00005bb0| 29 0d 23 64 65 66 69 6e | 65 20 41 52 5f 44 49 4d |).#defin|e AR_DIM|
|00005bc0| 53 28 61 72 29 20 20 20 | 20 20 20 20 20 20 20 20 |S(ar)   |        |
|00005bd0| 20 20 20 20 20 20 47 45 | 54 5f 46 49 58 4e 55 4d |      GE|T_FIXNUM|
|00005be0| 5f 50 54 52 28 4f 46 46 | 53 45 54 28 61 72 2c 20 |_PTR(OFF|SET(ar, |
|00005bf0| 2d 31 29 29 0d 23 64 65 | 66 69 6e 65 20 41 52 5f |-1)).#de|fine AR_|
|00005c00| 44 49 4d 28 61 72 2c 20 | 69 29 20 20 20 20 20 20 |DIM(ar, |i)      |
|00005c10| 20 20 20 20 20 20 20 20 | 20 28 41 52 5f 44 49 4d |        | (AR_DIM|
|00005c20| 53 28 61 72 29 5b 28 69 | 29 2b 31 5d 29 0d 23 64 |S(ar)[(i|)+1]).#d|
|00005c30| 65 66 69 6e 65 20 41 52 | 5f 52 41 4e 4b 28 61 72 |efine AR|_RANK(ar|
|00005c40| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)       |        |
|00005c50| 20 20 41 52 5f 44 49 4d | 28 61 72 2c 20 2d 31 29 |  AR_DIM|(ar, -1)|
|00005c60| 0d 23 64 65 66 69 6e 65 | 20 4d 41 4b 45 5f 4e 4f |.#define| MAKE_NO|
|00005c70| 54 5f 44 49 53 50 4c 41 | 43 45 44 28 61 72 29 20 |T_DISPLA|CED(ar) |
|00005c80| 20 20 20 20 20 4c 4f 41 | 44 5f 4e 49 4c 28 4f 46 |     LOA|D_NIL(OF|
|00005c90| 46 53 45 54 28 61 72 2c | 20 2d 32 29 29 0d 23 64 |FSET(ar,| -2)).#d|
|00005ca0| 65 66 69 6e 65 20 44 49 | 53 50 4c 41 43 45 44 5f |efine DI|SPLACED_|
|00005cb0| 50 28 61 72 29 20 20 20 | 20 20 20 20 20 20 20 20 |P(ar)   |        |
|00005cc0| 20 20 43 4c 5f 54 52 55 | 45 50 28 4f 46 46 53 45 |  CL_TRU|EP(OFFSE|
|00005cd0| 54 28 61 72 2c 2d 32 29 | 29 0d 23 64 65 66 69 6e |T(ar,-2)|).#defin|
|00005ce0| 65 20 44 49 53 50 4c 41 | 43 45 44 5f 54 4f 28 61 |e DISPLA|CED_TO(a|
|00005cf0| 72 29 20 20 20 20 20 20 | 20 20 20 20 20 20 41 52 |r)      |      AR|
|00005d00| 5f 42 41 53 45 28 61 72 | 29 0d 23 64 65 66 69 6e |_BASE(ar|).#defin|
|00005d10| 65 20 44 49 53 50 4c 41 | 43 45 44 5f 49 4e 44 45 |e DISPLA|CED_INDE|
|00005d20| 58 5f 4f 46 46 53 45 54 | 28 61 72 29 20 20 4f 46 |X_OFFSET|(ar)  OF|
|00005d30| 46 53 45 54 28 61 72 2c | 20 2d 32 29 0d 0d 23 64 |FSET(ar,| -2)..#d|
|00005d40| 65 66 69 6e 65 20 46 49 | 4c 4c 5f 50 54 52 28 76 |efine FI|LL_PTR(v|
|00005d50| 65 63 29 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ec)     |        |
|00005d60| 20 20 4f 46 46 53 45 54 | 28 76 65 63 2c 20 2d 31 |  OFFSET|(vec, -1|
|00005d70| 29 0d 23 64 65 66 69 6e | 65 20 4d 41 4b 45 5f 46 |).#defin|e MAKE_F|
|00005d80| 49 4c 4c 5f 50 54 52 28 | 76 65 63 29 20 20 20 20 |ILL_PTR(|vec)    |
|00005d90| 20 20 20 20 20 20 4c 4f | 41 44 5f 46 49 58 4e 55 |      LO|AD_FIXNU|
|00005da0| 4d 28 30 2c 20 46 49 4c | 4c 5f 50 54 52 28 76 65 |M(0, FIL|L_PTR(ve|
|00005db0| 63 29 29 0d 23 64 65 66 | 69 6e 65 20 48 41 53 5f |c)).#def|ine HAS_|
|00005dc0| 46 49 4c 4c 5f 50 54 52 | 28 76 65 63 29 20 20 20 |FILL_PTR|(vec)   |
|00005dd0| 20 20 20 20 20 20 20 20 | 43 4c 5f 54 52 55 45 50 |        |CL_TRUEP|
|00005de0| 28 46 49 4c 4c 5f 50 54 | 52 28 76 65 63 29 29 0d |(FILL_PT|R(vec)).|
|00005df0| 23 64 65 66 69 6e 65 20 | 47 45 54 5f 46 49 4c 4c |#define |GET_FILL|
|00005e00| 5f 50 54 52 28 76 65 63 | 29 20 20 20 20 20 20 20 |_PTR(vec|)       |
|00005e10| 20 20 20 20 41 52 5f 53 | 49 5a 45 28 76 65 63 29 |    AR_S|IZE(vec)|
|00005e20| 0d 23 64 65 66 69 6e 65 | 20 53 45 54 5f 46 49 4c |.#define| SET_FIL|
|00005e30| 4c 5f 50 54 52 28 73 7a | 2c 20 76 65 63 29 20 20 |L_PTR(sz|, vec)  |
|00005e40| 20 20 20 20 20 53 45 54 | 5f 41 52 5f 53 49 5a 45 |     SET|_AR_SIZE|
|00005e50| 28 73 7a 2c 20 76 65 63 | 29 0d 23 64 65 66 69 6e |(sz, vec|).#defin|
|00005e60| 65 20 41 52 5f 53 49 5a | 45 5f 57 48 45 4e 5f 46 |e AR_SIZ|E_WHEN_F|
|00005e70| 50 28 76 65 63 29 20 20 | 20 20 20 20 20 20 47 45 |P(vec)  |      GE|
|00005e80| 54 5f 46 49 58 4e 55 4d | 28 46 49 4c 4c 5f 50 54 |T_FIXNUM|(FILL_PT|
|00005e90| 52 28 76 65 63 29 29 0d | 23 64 65 66 69 6e 65 20 |R(vec)).|#define |
|00005ea0| 53 45 54 5f 41 52 5f 53 | 49 5a 45 5f 57 48 45 4e |SET_AR_S|IZE_WHEN|
|00005eb0| 5f 46 50 28 73 7a 2c 76 | 65 63 29 20 4c 4f 41 44 |_FP(sz,v|ec) LOAD|
|00005ec0| 5f 46 49 58 4e 55 4d 28 | 73 7a 2c 20 46 49 4c 4c |_FIXNUM(|sz, FILL|
|00005ed0| 5f 50 54 52 28 76 65 63 | 29 29 0d 0d 23 64 65 66 |_PTR(vec|))..#def|
|00005ee0| 69 6e 65 20 46 4f 52 4d | 5f 41 52 28 61 72 29 20 |ine FORM|_AR(ar) |
|00005ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005f00| 47 45 54 5f 46 4f 52 4d | 20 20 20 20 20 20 20 28 |GET_FORM|       (|
|00005f10| 41 52 5f 42 41 53 45 28 | 61 72 29 29 0d 23 64 65 |AR_BASE(|ar)).#de|
|00005f20| 66 69 6e 65 20 46 49 58 | 4e 55 4d 5f 41 52 28 61 |fine FIX|NUM_AR(a|
|00005f30| 72 29 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |r)      |        |
|00005f40| 20 47 45 54 5f 46 49 58 | 4e 55 4d 5f 50 54 52 20 | GET_FIX|NUM_PTR |
|00005f50| 28 41 52 5f 42 41 53 45 | 28 61 72 29 29 0d 23 64 |(AR_BASE|(ar)).#d|
|00005f60| 65 66 69 6e 65 20 46 4c | 4f 41 54 5f 41 52 28 61 |efine FL|OAT_AR(a|
|00005f70| 72 29 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |r)      |        |
|00005f80| 20 20 47 45 54 5f 46 4c | 4f 41 54 5f 50 54 52 20 |  GET_FL|OAT_PTR |
|00005f90| 20 28 41 52 5f 42 41 53 | 45 28 61 72 29 29 0d 23 | (AR_BAS|E(ar)).#|
|00005fa0| 64 65 66 69 6e 65 20 43 | 48 41 52 5f 41 52 28 61 |define C|HAR_AR(a|
|00005fb0| 72 29 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |r)      |        |
|00005fc0| 20 20 20 47 45 54 5f 43 | 48 41 52 5f 50 54 52 20 |   GET_C|HAR_PTR |
|00005fd0| 20 20 28 41 52 5f 42 41 | 53 45 28 61 72 29 29 0d |  (AR_BA|SE(ar)).|
|00005fe0| 0d 0d 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |../*----|--------|
|00005ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006030| 2d 2d 0d 20 2a 20 4d 61 | 6b 72 6f 20 66 fc 72 20 |--. * Ma|kro f.r |
|00006040| 45 51 2d 46 75 6e 6b 74 | 69 6f 6e 0d 20 2a 2d 2d |EQ-Funkt|ion. *--|
|00006050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2a 2f 0d 23 64 65 |--------|--*/.#de|
|000060a0| 66 69 6e 65 20 45 51 28 | 78 2c 20 79 29 20 28 54 |fine EQ(|x, y) (T|
|000060b0| 59 50 45 5f 4f 46 28 78 | 29 20 3d 3d 20 54 59 50 |YPE_OF(x|) == TYP|
|000060c0| 45 5f 4f 46 28 79 29 20 | 26 26 20 47 45 54 5f 46 |E_OF(y) |&& GET_F|
|000060d0| 4f 52 4d 28 78 29 20 3d | 3d 20 47 45 54 5f 46 4f |ORM(x) =|= GET_FO|
|000060e0| 52 4d 28 79 29 29 0d 0d | 0d 2f 2a 2d 2d 2d 2d 2d |RM(y))..|./*-----|
|000060f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006100| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 20 2a 20 4b 6f 70 |--------|-. * Kop|
|00006140| 69 65 72 65 6e 20 76 6f | 6e 20 73 74 61 74 69 73 |ieren vo|n statis|
|00006150| 63 68 65 6e 20 56 61 72 | 69 61 62 6c 65 6e 20 69 |chen Var|iablen i|
|00006160| 6e 20 64 65 6e 20 48 65 | 61 70 2e 0d 20 2a 20 50 |n den He|ap.. * P|
|00006170| 61 72 61 6d 65 74 65 72 | 3a 20 31 2e 20 5a 65 69 |arameter|: 1. Zei|
|00006180| 67 65 72 20 61 75 66 20 | 64 69 65 20 73 74 61 74 |ger auf |die stat|
|00006190| 69 73 63 68 65 20 56 61 | 72 69 61 62 6c 65 20 69 |ische Va|riable i|
|000061a0| 6d 20 53 74 61 63 6b 0d | 20 2a 20 20 20 20 20 20 |m Stack.| *      |
|000061b0| 20 20 20 20 20 20 32 2e | 20 5a 65 69 67 65 72 20 |      2.| Zeiger |
|000061c0| 61 75 66 20 53 74 61 63 | 6b 2d 54 6f 70 0d 20 2a |auf Stac|k-Top. *|
|000061d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000061e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000061f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2a 2f 0d 23 |--------|----*/.#|
|00006220| 64 65 66 69 6e 65 20 47 | 45 4e 5f 48 45 41 50 56 |define G|EN_HEAPV|
|00006230| 41 52 28 76 61 72 2c 20 | 74 6f 70 29 20 7b 20 20 |AR(var, |top) {  |
|00006240| 20 20 20 20 20 20 20 20 | 20 20 20 20 5c 0d 20 20 |        |    \.  |
|00006250| 20 43 4c 5f 46 4f 52 4d | 20 2a 5f 68 65 61 70 5f | CL_FORM| *_heap_|
|00006260| 70 74 72 20 3d 20 66 6f | 72 6d 5f 61 6c 6c 6f 63 |ptr = fo|rm_alloc|
|00006270| 28 74 6f 70 2c 20 31 29 | 3b 20 20 5c 0d 20 20 20 |(top, 1)|;  \.   |
|00006280| 43 4f 50 59 28 76 61 72 | 2c 20 5f 68 65 61 70 5f |COPY(var|, _heap_|
|00006290| 70 74 72 29 3b 20 20 20 | 20 20 20 20 20 20 20 20 |ptr);   |        |
|000062a0| 20 20 20 20 20 20 20 20 | 20 20 5c 0d 20 20 20 4c |        |  \.   L|
|000062b0| 4f 41 44 5f 49 4e 44 28 | 5f 68 65 61 70 5f 70 74 |OAD_IND(|_heap_pt|
|000062c0| 72 2c 20 76 61 72 29 3b | 20 20 20 20 20 20 20 20 |r, var);|        |
|000062d0| 20 20 20 20 20 20 20 20 | 20 5c 0d 7d 0d 0d 0d 2f |        | \.}.../|
|000062e0| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*-------|--------|
|000062f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00006330| 20 2a 20 4d 61 6b 72 6f | 20 66 fc 72 20 64 61 73 | * Makro| f.r das|
|00006340| 20 4b 6f 70 69 65 72 65 | 6e 20 64 65 72 20 43 4c | Kopiere|n der CL|
|00006350| 5f 46 4f 52 4d 2d 53 74 | 72 75 6b 74 75 72 0d 20 |_FORM-St|ruktur. |
|00006360| 2a 20 42 65 69 20 65 69 | 6e 69 67 65 6e 20 4b 6f |* Bei ei|nigen Ko|
|00006370| 6d 70 69 6c 65 72 6e 20 | 6d 75 73 73 20 4b 6f 6d |mpilern |muss Kom|
|00006380| 70 6f 6e 65 6e 74 65 6e | 77 65 69 73 65 20 6b 6f |ponenten|weise ko|
|00006390| 70 69 65 72 74 20 77 65 | 72 64 65 6e 2e 0d 20 2a |piert we|rden.. *|
|000063a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000063b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000063c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000063d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000063e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2a 2f 0d 23 |--------|----*/.#|
|000063f0| 64 65 66 69 6e 65 20 43 | 4f 50 59 28 73 6f 75 72 |define C|OPY(sour|
+--------+-------------------------+-------------------------+--------+--------+